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TELECCMMUTE! 


INTEGRATED WORD PROCESSING 
AND COMMUNICATIONS SOFTWARE 


For the Tandy 1000, 1200 and 2000, and IBM-PC/XT/AT and compatible 
computers. Uses all the Model 100/Tandy 200 TEXT and TELCOM 
commands. 

WHY BUY JUST FILE TRANSFER? 

TURN YOUR DESKTOP COMPUTER INTO 

A ‘SUPER MODEL 100/TANDY 200”! 


For $200 you can put all this on your desktop computer: 


k 





• Full function Word Processor based on and compatible with 
Model 100/Tandy 200 TEXT Editor. 


• Super Power Communications based on and compatible with 
Model 100/Tandy 200 TELCOM. 


• FastFile Transfer between Model 100/ Tandy 200 and desktop 
at 9600 baud. Fully prompted at every step so you'll never get 
lost. And we supply the cable at no extra cost! 


ө Host Mode for remote control of desktop computer from Model 
100, Tandy 200, dumb terminal, or any computer with Telcom 
capability. 


You don't have to put extra code on your Model 100 or Tandy 200 to transfer 
files — no cassettes, no ROM cartridges. Telecommuter will exchange files 
with any computer that has an RS-232 port and communications software, 
even another desktop computer. 


Optional advanced features include XMODEM protocol file transfer, full 
VT100 terminal emulation, Telcom scripts and macros for automatic dialup 
and file transfer, DOS access from editor, and multiple access level Host 
Mode. TC-Corporate allows individual user assignments, such as pass- 
word, access level and time limit; keeps activity log. 


Telecommuter is a new and significantly easier way to use your portable and 
desktop computers together. Call or write today for more information on our 
entire line of fine software products. 


We accept MasterCard and VISA for mail or telephone orders, and we ship 
free in the USA. Upgrade any time for price difference. 


TC-standard or TC-XMODEM $200, TC-DeLuxe $300, TC-plus $400, and 
TC-Corporate $1000. 


е“ for Telecommuter at your local Radio Shack Computer Store! 


SIGEASYSTEMS, INC. | || 
нин — 0 020250200 


19 Pelham Road, Weston, МА 02193 (617) 647-1099 
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тапду 200 24К 5739 
Model 100 24K 5540 


Smith Corona L-4000 
$259 


Tandy 1200 HD $1599 
10 Meg. 256K 


Color Computer Il 
w/46K Ext. Basic $179 


Tandy 1000 $779 
Tandy 1000 HD $1539 


DMP105 $160 


BIG SAVINGS ON A FULL COMPLEMENT OF RADIO SHACK COMPUTER PRODUCTS 


COMPUTERS 

Tandy 1000 1 Drive 128K 
Tandy 1000 HD 10 Meg. 256K 
Tandy 1200 10 Meg. 256K 
Tandy 2000 2 Drive 256K 
Tandy 2000 10 Meg. 256K 
Model IV Desktop 64K 


PRINTERS 

Radio Shack DMP-2100P 1159.00 
Radio Shack DMP-430 660.00 
Radio Shack DWP-220 Daisy Wheel469.00 
Radio Shack TRP-100 Portable ` 229.00 
Silver Reed EXP-550 Daisy Wheel 430.00 
Star SG-10 245.00 
Star SG-15 410.00 
Star SD-10 365.00 
Panasonic P-1091 275.00 
Toshiba 351 1325.00 
CITOH Prowriter 8510AP +NLQ 345.00 
Okidata 192 379.00 
Okidata 193 539.00 
Ерзоп 1Х-80 245.00 
Ерзоп ЕХ-80 359.00 


779.00 
1539.00 
1599.00 
1295.00 
2025.00 

959.00 


Tandy 1000/1200 ACCESSORIES 

Tandy 1000 Disk Drive Kit 159.00 
Tandy 1000 10 Meg. Hard Drive 579.00 
Hard Drive Controller Board 265.00 
256K Ram Board (inc. 128K & DMA)199.00 
542K Ram Board (includes 128K) 169.00 
256K Memory Plus Expansion Brd.249.00 
PBJ Multi-Function Board (128K) 269.00 
PBJ Multi-Function Board (256K) 299.00 
PBJ Multi-Function Board (542K) 349.00 
428K Ram Upgrade Kit (Tandy) 115.00 
428K Ram Upgrade Kit (NEC) 78.00 
256K Ram Upgrade (for PBJ Board)69.00 
309 Baud Modem Board 429.00 
RS-232 Serial Board 89.00 
Digi-Mouse/Clock Board 89.00 
Tandy 1000/1200 MONITORS 
Tandy VM-2 Green Monitor 

Tandy CM-2 RGB Color Monitor 
Tandy VM-3 TTL Green Monitor 
Taxan 122 TTL Amber Monitor 439.00 
Tandy 1200 Text Monitor Adapt. 179.00 
Tandy 1200 Color/Graphics Adapt240.00 


129.00 
379.00 
179.00 


CALL TOLL FREE 
1-800-343-8124 


• LOWEST POSSIBLE PRICES 
BEST POSSIBLE WARRANTY 
KNOWLEDGEABLE SALES STAFF 
TIMELY DELIVERY 
SHOPPING CONVENIENCE 


= Ш s 


Р.О. Вох 1094 
480 King Street 
Littleton, MA 01460 


MODEMS 

Radio Shack DCM-3 Model 
Radio Shack DC Modem II 160.00 
Radio Shack DC Modem 2212 345.00 
Hayes Smartmodem II 300 Baud 215.00 
Hayes Smartmodem 1200 Baud 429.00 
Novation J-Cat 300 Baud 415.00 


FOR EVERYONE 

Network Four Outlet Surge Prot. 
CCR-81 Cassette Recorder 52.00 
CCR-82 Cassette Recorder 43.00 
C-20 Digital Cassette Tapes (10pk) 9.95 
Verbatim SSDD Plastic Box (10pk) 24.95 
Verbatim DDDD Plastic Box (10pk) 29.95 
Generic SSDD Diskettes (10pk) 17.95 
NEC 64K Ram Chips (set of 8) 49.00 
Radio Shack 16K Ram Chips (8) 25.00 
Locking Disk Box (holds 70) 19.95 
Flip N File Disk 50 15.00 
Fanfold CleanEdge Paper (2600) 35.00 


52.00 


69.95 


Radio Shack software 1095 off. 
Send for complete listing of 
brand name software and hardware. 


SINCE 1973 


IN MASSACHUSETTS CALL (617) 486-3193 


TRS-80 is a registered trademark of Tandy Corp. 
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Check out the software that completes their systems 


Tandy MS-DOS Software Comparison Chart 


pfs” dBase" filePro 16 
File/Report II Smallware 





G RA 
CHARACTERISTICS: 


Menu driven 


Allows user to create integrated 
business systems 

Developed systems and data can be 
moved to multi-user environments 
Professional support available 
from the software’s authors 


programmer 
required 


m 
= 
т 
r 
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CAPACITIES: 


Fields per record 





1679 4608 


16,000,000 | 


Characters per record 

Records per file 

Indexes per file 

Number of digits per numeric field 


Number of files usable concurrently 





Files span multiple drives 


FEATURES: 





upto8 ^ 


= mm 
е ФФ 
mn Les УМ MIN 








Full-screen facility for creating 
custom screen layouts YES 
Full-screen facility for creating 
custom report layouts YES 


Built-in field types 
(error checking) 
programmer 
require: 
programmer 
required 
programmer 
required 
possible 


programmer 
required 

programmer 
required 


User-defined field types 
Conditional math 


User-defined menus 


Change file layout without 
losing existing data 


possible 


N 
wm 


Data protection 
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Password security 










— filePro® 


The new Tandy computers 
can really speed things up. If 
you don't let obsolete 
software bog you down. 

Try filePro 16, the latest 
generation of data base 
software from the authors of 
Profile®. 

Choose it for its power 
(check our capacities); its 
ease-of-use (check our 
features); and its unique 
ability to grow as your needs 
grow, and even move the 
systems you create to multi- 
user computers. 

filePro is available for the 
Tandy 1000, 1200 and 2000 
computers (hard disk 
required). Available directly 
from us or through your 
Radio Shack store's Express 
Order Software service. 


To order, call 

(800) 847-4740. 

For customer service or 
when dialing in New York 
State, call (212) 398-9290. 
Ask for Smallware sales. 
Visa and MasterCard 
accepted. 

Also available for other computers, 


including IBM PC, IBM PC-XT, and 
NCR Decision Mate. ntl 












Y E S ен, Эу, 






© The Small Computer Company, Inc. | 


юм 230 West 41st Street, Suite 1200, New York, New York 10036 


Smallware and filePro are registered trademarks of The Small Computer Company, Inc. dBase II is a trademark of Ashton-Tate. pfs File/Report 
is a registered trademark of Software Publishing. Profile is a registered trademark of Tandy Corporation. 


~ 


Ld 


РСМ 


` 


; Г, 


OG 


September 1985 







[fe are a lot of exciting things 
going on in our world of com- 
puters and I hope to share some 
of that with you. 

First of all, things are really shaping 
up for our first-ever PCMfest in 
Princeton, October 11-13! Take а look 
at the information inside this issue, clip 
out the coupon and get some tickets 
now. You'll have a good time! 

Our biggest PCMfest news is the 
acceptance by Contributing Editor Bill 
Barden to be our guest speaker at the 
breakfast on Saturday morning. Bill is 
not only highly articulate in print, but 
very personable as well, and will, Г am 
certain, provide an excellent program. 

So come to PCMfest, see the biggest 
display of Tandy software and hard- 
ware ever put together for the MS-DOS 
and portable machines, meet many of 
the *names" who have been a part of 
PCM and hear (and meet) Bill at the 
breakfast. This is not one to be missed. 


It gives me a great deal of pleasure 
to be able to announce that we have 
a new managing editor for PCM, Danny 
Humphress, who moves up from his 
Technical Editor's slot. Courtney Noe, 
who gave “birth” to PCM over two years 
ago, moves up into the position of 
Executive Editor. Courtney has also 
been given increased responsibilities 








> Changes Blowing in 
the Autumn Winds 


involving sister publications THE RAIN- 
BOW and SOFT SECTOR, our magazine 
for the Sanyo computer family. 

Danny, as all of you who read these 
pages know, is a wizard with all the 
computers which are covered by PCM. 
He is the author of the portable bar 
code programs, has been "Mr. MS- 
DOSsier" and put together the entire 
report on ViaNet. 


Courtney's new position will allow 
him to concentrate on his first love, 
magazine production. Our local punster 
as well, if you've ever groaned over one 
of our headlines or cover lines, Court- 
ney — sometimes known as “Dr. Noe" 
ala James Bond, probably wrote it. 


And there are some other things 
coming ир... but we'll have to wait 
awhile to let you know about some of 
them. In the meantime, as you no doubt 
have noticed, PCM keeps growing and 
expanding and we welcome you to keep 
growing with us. And, too, thanks for 
your support — more and more adver- 
tisers keep telling me they are getting 
feedback from you that you saw their 
ads here. It really helps us grow to 
become the magazine you — and we 
— want PCM to be! 


— Lonnie Falk 


TANDY 1000 
INTERNAL HARD DRIVES 
































¢ NO ADDED MEMORY e COMPLETE KIT- 
BOARD NECESSARY NOTHING ELSE ТО. 
BUY [н 
• BOOTS OFF HARD 
DRIVE e INSTALLS IN 
MINUTES WITH ONLY | 
е TERMS — A SCREWDRIVER 
MONEY ORDER 
CASHIER'S CHECK • INTERNAL KITS 
"COD. AVAILABLE FOR": 
*MASTERCARD/VISA TELEVIDEO 
5% FEE ТАМОУ 1000 
SANYO 
COMPAQ 
LEADING EDGE 
Lm === PANASONIC 
ТТ HERE CORONA 
|| Er ту 29 IBM РС 
*PLUS SHIPPING & NOVA 
HANDLING AT&T, NCR & ITT 








10 MEG || 20MEG || 32 MEG 
$89500 | $119500 | $1395.00 


HARD DRIVE & CONTROLLER АВЕ 100% IBM COMPATIBLE. WE USE ONLY QUALITY | 
DRIVES & WESTERN DIGITAL CONTROLLERS FOR THE HIGHEST QUALITY. WE 
BACK THE FULL SYSTEM WITH A 1 YEAR WARRANTY. THE SYSTEM COMES 
COMPLETE WITH ALL CABLES & MOUNTING HARDWARE. REQUIRES NO ADDED 
MEMORY BOARD TO OPERATE. 20 & 32 MEGABYTE INTERNAL HARD DISKS ALSO 
AVAILABLE. COMPLETE INFO AVAILABLE UPON REQUEST. 


RTX TECHNOLOGIES, INC. 
РО. BOX 50398 
NASHVILLE, TENN. 37209 


*SAME PRICE AS TANDY 
(615) 373-1251 "ALL MS" DOS COMPUTERS 





Letters to PCM 


PERFECT WORDS 


Editor: 

I'm finally getting to something I meant 
to do several months ago when I first 
finished configuring, experimenting with 
and using WordPerfect 4.0 in my business. 
I'd been through five biggies (who shall 
remain nameless) and several less expensive 
programs. There were always more tradeoffs 
than benefits for all of them as far as I was 
concerned. They were poorly documented, 
too clumsy and inconvenient, too slow, too 
complex . . . too something. 

What a change! WordPerfect 4.0 is fast, 
straightforward, convenient, flexible, pow- 
erful, easy to use, reasonably priced and, 
most of all, supported beyond my wildest 
expectations. They don't yet have an undo 
function or on-screen windowing but they 
do have the ability to keep two separate 
documents resident at the same time with 
a "switch" function to flip back and forth 
and swap text, etc. 

Word Perfect will truly be “perfect” with 
Version 5.0 due out shortly . . . Both items 
on my wish list are included (windows and 
undo). What will I find [for nitpicking]. . . 
not much I venture. 

Alexander T. Irving 
New York, NY 


100 DISK COMPATIBILITY 


Editor: 

I recently received Lucid from the 
Portable Computer Support Group and I 
am enthralled with its ease of operation and 
speed. Along with Text Power 100 from the 
Covington Group, Lucid allows me to 
handle all my sales projections and corres- 
pondence associated with my new business. 
And some people think they need something 
large and bulky to get their work done. 

I would find it helpful to know if any 
reviewed programs can work with the Radio 
Shack Disk/Video Interface before I buy 
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them and if they will show a partial or full 
screen display. For the record, the display 
for Lucid is the same as what you see on 
the 8 by 40 screen but the cursor does not 
work. The Text Power 100 does not work 
with the DVI but they have a version of 
the program for it. 

There is a market for programs on disk, 
such as the business series on multiple 
cassettes. Perhaps some of your advertisers 
might consider a move into such an area. 

Gordon McElroy 
Narberth, PA 


Editor's Note: We try in our reviews 
to indicate the software written in 
machine code which may conflict with 
bar code readers, the Disk/ Video 
Interface or other programs. The 
review of Text Power 100 (February 
1985 issue of PCM) mentions the need 
to be specific in your order of what 
competing machine code software 
you are using. More software writers 
need to realize, and many have, the 
purchaser may need to offset load 
their programs. 


TELECOM MATE 


Editor: 

The DeskMate software package that 
comes with the Tandy 1000 is really quite 
good. 

One area I ran into that caused a little 
trial and error until I got it figured out is 
the TELECOM application. This informa- 
tion may be of help to some of your other 
readers. 

I call the Dow Jones News Retrieval 
service rather often and the automatic logon 
(AUTO LOG) feature is a real joy. There 
are some ground rules that must be observed 
in setting up the AUTO LOG EDIT module, 
however. In addition to setting the STATUS: 
Fl correctly, based on Baud rate, parity, etc., 
and then entering the phone number in 





response to CALL: F2, you press F4 SEND: 
and type "^C" (CONTROL-C). Following 
that, you press F3 which gives you a 
RECEIVE: entry, and here is where you must 
pay attention to what the news service sends 
to your computer. You must use the exact 
text and symbols that they will be sending 
to you. And this means, if they use capital 
or lower-case letters, you must use the same. 
If they use four question marks (as in WHAT 
SERVICE PLERSE????) you must use four. 
I use a Hayes SmartModem, 300 Baud. 
Attached is a screen dump of the AUTO 
LOG EDIT screen for automatically logging 
onto the Dow Jones News Retrieval service. 
Also attached is a screen dump of the 
DEFINE MODEM FOR COMPUTER 
DIALING screen for the Hayes 
SmartModem. 
It is a delight to see something in print 
about the Tandy 1000. I love mine. 
Alva M. Hill 
Bellingham, W.A 


RUTOLOG EDIT 

STATUSS $6,30,2,E,; LOPE OFF; 
OFF ,0FF,3 

CALL: 647 0666 

SEND: “C 

RECV: please type your terminal 

identifier 

SEND: A 

RECV: please log in 

SEND: dowl;; 

RECV: WHAT SERVICE PLEASE 7727 

SEND: djns^M 

RECV: ENTER PASSWORD 

SEND: 39V9VIKRMH^M 


DEF INE MODEM FOR COMPUTER DIRLING 
SEND: RT DT 

NUMBER 

SEND: ^M 





Text processing power that по other program can equal. 





PCSG says “Send it back in 30 days for a full 
refund if y you don't agree.” 


on Snap-in™ Cartridge $149.95 


WRITE ROM is the definitive word 
processing extension for the Model 100. 
PCSG the first text formatter for the Model 
100, now sold by Radio Shack as Scripsit 
100. Now 18 months later PSCG introdu- 
ces WRITE ROM. Those who have expe- 
rienced it say WRITE ROM literally dou- 
bles the power of the Model 100. 

First of all, WRITE ROM as its name 
implies is on a snap-in ROM. You simply 
take a quarter and open the little compart- 
ment on the back of the Model 100 and 
press it in. It is as easy as an Atari game 
cartridge. You can use other ROM pro- 
grams like Lucid whenever you wish. 

WRITE ROM lets you do every format- 
ting function you would expect like setting 
margins, centering, right justifying and 
having headers and footers. But it does 
them under function key control. 

WRITE ROM remembers your favorite 
format settings so that you can print a 
document without any setup, but you can 
change any formatting or printing parame- 
ters instantly with a function key. 

WRITE ROMSs “pixel mapping" feature 
shows you an instant picture on the screen 
of how your printout will look on paper. 

In all there are 64 separate features and 
functions that you can do with WRITE 
ROM, and some of these features are truly 
breakthroughs for the Model 100. 

First, WRITE ROM lets you do search 
and replace. Any word or phrase in a 
document can be searched for and 
replaced with any other phrase where the 
search words appear. 

Second, WRITE ROM lets you send any 
text (formated or not) to any other 
computer over the phone with just a 
function key. What's more it dials and 
handles sign on and sign off protocol 
automatically. 

Third, WRITE ROM has a wonderful 
feature called Library that lets you record 
favorite phrases, words or commonly used 
expressions (often called boilerplate). 


Any place you wish any Library text to 
appear you just type a code. WRITE ROM 
automatically inserts the text just like a 
Xerox Memory Writer. 

Picture what you can do with that kind 
of capability. 

WRITE ROM is blindingly fast. No one 
can claim faster operation. Because it is 
on ROM it uses virtually none of your 
precious RAM. It works with any printer, 
serial or parallel. You can make a duplicate 
copy of a document file under a new 
filename. Rename or delete (kill) any RAM 
file with function key ease. 

This description only scratches the 
surface of the amazingly powerful piece 
of software. Dot commands allow control 
of such things as margins, centering, line 
spacing and other changes in the middle 
of a document. Most are Wordstar 
compatible. 

A mail merge feature allows you to send 
the same document to every name on your 
mailing list, personalized for each 
recipient. 

WRITE ROM enables you to do under- 
lining, boldface and correspondence 
mode as well as any other font feature like 
superscripts that your printer supports in 
a way that many users say "is worth the 
price of the program." 

To underline you don't have to 
remember a complicated printer code. You 
just type CODE U, and to stop underline, 
CODE U again. The CODE key is to the 
right of your spacebar. Boldface? CODE 
B to start and stop. Easy to remember and 
do. Five different printer features of your 
choice. 

We couldn't list all the features here. For 
example, not just double space but triple 
or any other. You can use your TAB key 
in a document. WRITE ROM allows you 
to indent. This means you can have 
paragraphs that have a first line projecting 
to the left of the rest of the paragraph. 
Plus many more features. 
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WRITE ROM has a feature unique to апу 
word processor on any computer. It is 
called FORM. FORM is an interactive 
mechanism that lets you create screen 
prompts so that you or someone else can 
answer them to fill out forms or 
questionaires. 

With FORM anyplace where you had 
previously typed a GRAPH T and a prompt 
in a document, WRITE ROM will stop and 
you are shown that prompt on the screen. 
You can type in directly on the screen and 
when you press F8 you see the next 
prompt. Goes to a printer or a RAM file. 

Think of how you can use FORM. A 
doctor or nurse could use it for a patient's 
history with each question appearing on 
the screen. An insurance salesman could 
have his entire questionaire. You could 
construct a series of prompts to answer 
correspondence typing the answers, even 
using Library codes. This feature lets you 
answer letters in rapid fire fashion each 
with personalized or standard responses. 

Before WRITE ROM you had to be a 
programmer to create a series of prompts. 
Now its as simple as GRAPH T. 

PCSG makes the claim that WRITE ROM 
is the easiest, fastest and most feature rich 
formatter for the Model 100. We are happy 
to offer WRITE ROM because it expands 
the 100 to a dimension of text processing 
you cannot equal on even larger 
computers. 

We brashly state that WRITE ROM is the 
best you can buy. But put that to the test. 
If you aren't as excited as we are return 
it for a full refund. Priced at $149.95 on 
snap-in ROM. MasterCard, VISA, Ameri- 
can Express and COD. 


1-214-351-0564 
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County Tandy Users Group. This 
.month we were sharing the building 
with the Orange Apple Computer Club, 
a rowdy bunch. Their meeting over, 
some of the Apple group were hanging 
around our gathering, making snide 
remarks about Tandy 1000s. Ah well, 
to each his own, I thought, even if you 
have an outdated system . . . I noticed 
that the guest speaker was my friend, 
Guru Dan, lecturing on Tandy 1000 
sounds. Dan was a hardware whiz, an 
unconventional electronics engineer 
who had designed computer electronics 
as diverse as moving billboards, heart 
monitors, and automated security 
systems. Dan was into Zen, tofu, and 
Tandy 1000s, not necessarily in that 
order. This should be interesting, I 
thought. 

Dan was just starting as I took a seat. 

“There are three ways in BASIC to 
produce sounds on the 1000,” Dan 
stated. 


|| was another meeting of the Orange 


Is That Your Beeping Computer? 


“The simplest sound that the Tandy 
1000 can make is a beep.” So saying, 
he entered BEEP after the “OK” prompt 
in BASIC and the system made a quarter- 
second beep sound. “BEEP is used to 
signal an error condition or to attract 


(William Barden, Jr., is a master 
communicator in a field in which he 
is one of the few recognized experts — 
microcomputers. A prolific author of 
more than 27 books and handbooks on 


the attention of an operator,” he went 
on. 
“Does anybody know of another way 
to get a beep?” Dan asked. 

“Yeah, your Tandy 1000s will beep 
if you pull their plugs,” said one of the 
Apple hecklers. 

Unperturbed, Dan continued — “A 
beep is also produced by printing a 
CHRS(7) character. The CHRS(7) 
character is a BEL, standing for bell. 
On the old teletypewriters there was an 
actual bell that could be rung to attract 
the operator’s attention — a hot wire 
service story rang the bell several times! 
The BEL code is a leftover from those 
days of wooden men and iron ma- 
chines,” Dan lamented. 

“Forget about BEEP for music or 
sounds — about all it does it make an 
800-Hertz sound,” Dan advised. “Ev- 
erybody know what a Hertz is?” he 
asked. Seeing some raised eyebrows, 
Dan continued. “A Hertz is just a 
measure of the frequency of a sound, 
Here’s the way a pure audio tone looks,” 
Dan stated. He drew a sine wave on 
the blackboard (see Figure 1). “This sine 
wave is 800 cycles-per-second, or 800 
Hertz. A cycle is the time it takes to 
get back to the starting point. The sine 
wave represents air pressure or voltage 
fed to a loudspeaker to produce that 
air pressure.” 


computers and computer programming, 
Bill also has authored several instruc- 
tional software projects for Tandy/ 
Radio Shack.) 
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POSITIVE 
VOLTAGE OR 
AIR 


Figure 1. Pure Sine Wave 
vs. Instrument Sound 


“Of course, most sounds produced 
aren't pure sine waves,” Dan went оп. 
“Most sounds look like the second 
waveform — lots of frequencies all 
superimposed on one another. That’s 
what gives a different sound to a C 
played on a piano keyboard compared 
to a C played on a detuned samisen.” 
Dan’s Far Eastern meditation was 
surfacing again, I thought. Next, he'll 
be talking about satori and sushi. 

“The problem with computers is that 
it's not too easy to produce a sine wave. 
However, it is easy to generate a square 
wave," Dan declared, drawing another 
figure on the blackboard (Figure 2). 
*Square waves are generated by turning 
a voltage off and on. What we're 
hearing on the 800-Hertz beep is a 
square wave," Dan continued. "Believe 
it or not, square waves are made up 
of alot of superimposed odd harmonics. 
Here's a diagram I produced (Figure 
3) showing how harmonic frequencies 
add together to make up the 800-Hertz 
square wave. Of course, those harmonics 
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are of lower volume than the main 
frequency, but they are there, and make 
a square wave of 800 Hertz sound 
different from a sine wave." 


Dan Has SOUND Ideas 

"The second way to make sounds 
with a Tandy 1000 in BASIC is to use 
SOUND,” Dan went on. 

“Each SOUND statement produces one 
tone. The SOUND action is the same on 
the 1000 as it is on the IBM PCjr. The 
SOUND statement looks like this," Dan 
said, illustrating the syntax on the 
blackboard: 


SOUND freq, duration 


“Freq is a numeric expression in the 
range of 109 to 32767 and duration is 
.0015 through 2978. The freq parameter 
sets the frequency of the tone played 
— the freq value is the actual frequency 
produced. Of course, you won't be able 
to hear tones much over 6000 or 7000 
Hertz due to the limitations of the 





AU. 





system. The neat thing about SOUND is 
that you can play a lot more frequencies 
than just musical notes. 

"The duration parameter controls the 
length of the tone in clock ticks. 
Everbody know what a clock tick is?" 
Dan asked. 

*Do they hang from binary trees and 
drop onto you as you walk by?" an 
Apple SIG member shouted. 

I noticed a twitch in Dan's lower left 
eyelid. 

*Each clock tick is generated from 
an internal clock in the system; 18.2 
clock ticks occur every minute, making 
each clock tick 0.0549 seconds long. A 
one-second duration middle C would 
be sounded by (Dan wrote on the 
board): 


SOUND 262,18 


“Неге a program that will sweep the 
tones from low to high," Dan offered, 
passing out another sheet (See Listing 
1). “You know, it's a shame that Tandy 
didn't put in the other SOUND options 
that are in the PCjr — they allow you 
to change the volume and to play up 
to three voices. 


*But wait, I have a surprise for you. 
Tandy did include those parameters," 
Dan said with a twinkle in his eye. 
"They're in the BASIC, but just not 
documented — at least not in my 
manual. Here's the proper format," he 
said, writing on the board again: 


SOUND freq, duration, volume, voice 


“The volume parameter is a value or 
expression in the range of 0 to 15. The 
default value appears to be 8. The 
greater the value, the louder the volume. 

“Voice is 0, 1, or 2 for the voice 
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Figure 3. Square Wave Composition 
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number. The Tandy 1000 allows three 
voices at one time. Everybody know 
about voices?” Dan queried. Eyebrows 
went up. “I guess voice comes from 
several singers singing the same melody 
or even different melodies, like a fugue. 
We'll talk about how that's done in a 
moment. But before I go on I should 
mention that a SOUND ON or SOUND OFF 
routes the sound to the audio output 
jack on back of the 1000. Be sure to 
do a SOUND ON before using an external 
amplifier. 

*OK, any questions so far?" Dan 
asked. 

*Yeah, when are you going to talk 
about a real machine?" growled an 
Apple heckler. 

Dan's other eyelid twitched this time, 
but he regained his composure after a 
brief moment and went on. 


Background Music Isn't Necessarily 
Muzak 

“The next thing I want to talk about 
is music background and foreground. 
On some computers, the computer 
controls the sound generation in soft- 
ware — it has to be executing a machine 
language program continually to pro- 
duce the sound. In the 1000, though, 
you can set a tone and go off and do 
some other processing. Microsoft calls 
this music background. Here's an 
example." Dan handed out another 
sheet with a listing on it, printed on 
the back of brochures for *Yoshi's Kut- 
Rate Karate School." Humm, looked 
like Dan had been doing more than 
meditating. On the listing I found: 


100 SOUND ON 
110 SOUND 600,100 
120 PRINT “At statement 120” 


“Let me run this simple program for 
you.” Dan loaded and ran the program 
on the 1000. The tone sounded, but 
almost immediately, while the tone was 
still present, “At statement 120” ap- 
peared on the screen. “This is music 
background — notice how the sound 
started and then BASIC continued? 
Music background is the default for 
SOUND. 
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“OK, we've got one more statement 
to look at and then we'll get into some 
more interesting topics." 


Playing Music on the 1000 

*PLRY is the most powerful command 
in 1000 BASIC for musical sounds. It 
works like the DRAW command. Basi- 
cally, you PLAY a string made up of 
one-letter codes. The codes represent 
notes to be played, octave settings, 
length of notes, rests, tempo settings, 
and note lengths. 

“Here’s a typical PLAY for “Тһе 
Yellow Rose of Texas’.” Dan loaded 
and started this statement: 


100 PLAY "t25003plgfeaggag 
2feg>cde2.<gg>eeeed2c<b> 
cded2<gfegggaggfeg>cde 

2.<gg>f f f fedce<g>edc2" 


*Let's just briefly go through com- 
mands. I’ve prepared a ‘crib sheet’ for 
you.” Dan passed out the sheets to the 
audience. On the reverse side was a 
menu from “Au Naturel,” a local health 
food restaurant. Dan, Dan, I thought, 
always proselytizing. 

“First, notes. Within the string, ‘A’, 
‘By СОЛУ Ву Fot (Gs play the 
corresponding notes in the current octave. 
Sharps are indicated by following the 
note value with a # or plus sign (+). 
Flats are indicated by a following minus 
sign. An alternate way to specifying 
note values is with the letter ‘N’ followed 
by zero to 84. The numeric value 
corresponds to the 12 notes of seven 
octaves. Values of one through 12 are 
‘CD’, ЧЕ "Ва A and “В of the 
first octave. A value of zero is a rest. 

“Seven octaves can be specified (zero 
through six). The default octave is 
octave four. Within the PLAY string, the 
letter ‘O’ followed by the digit 0 through 
6 specifies the octave. OS, for example, 
is octave five. However, a word of 
warning — octave zero will not produce 
the proper tones — the sound generator 
chip is not capable of producing the 
low frequencies in the first octave. 

“The character > within a string 
means “raise one octave” and the 
character < means lower one octave. 


This is usually followed by a note value. 
A «C, for example, means “play С one 
octave lower than the current octave. 
Once the octave is changed, it remains 
changed. 

“Within the string, an ‘L’ character 
followed by a value of one through 64 
sets the note duration to 1/п. For 
example, L8 sets the note duration to 
an eighth note, L16 sets sixteenth notes, 
and so forth. This note duration 
remains in force until a new ‘L’ defi- 
nition. If you want to play a note of 
a specific duration only once, and retain 
the current duration, the note character 
is followed by a duration value. 84, for 
example, plays a quarter note ‘A’ in the 
current octave. 

"A dot after a note increases the 
length of the note by one-half. A second 
dot adds another one-quarter, a third 
dot adds another one-eighth, and so 
forth. 

“The Р? character in a string followed 
by a value from one through 64 causes 
a rest of duration 1/п in the same way 
the note length is calculated. A P4, for 
example, is a quarter rest. Rests may 
also be dotted. 

“А "T'character in the string followed 
by a value of 32 through 255 sets the 
tempo in quarter notes in a minute. The 
default is a tempo of 120 counts per 
minute. 

"The characters MF or MB set either 
music foreground or music background 
as we were discussing before. 

“The characters MN, ML, or MS set 
the note type; normal, legato (full 
length), or staccato (3/4 length). The 
default note type is normal, or 7/8th 
of the length value. 

“Ап 'X' character, followed by a 
string name, executes the string. The 
contents of the specified string is played 
just as if it were ‘in line’ in the main 
string. 

"The ‘У’ character may be used to 
set the volume of the song. A SOUND 
ON must have been executed sometime 
before. The 'V' is followed by a value 
of zero through 15, signifying a low to 
high volume." 


Hearing Voices 

“Now here's a neat part: In the 1000, 
you can PLAY one, two, or three voices 
simultaneously. A SOUND ОМ must have 
been executed prior to the PLAY. For 
multiple voices, set music background 
by MB and then execute a PLRY of two 
or three strings: PLAY A$,B$ plays two 
voices, while PLAY 8$,B$,C$ plays 
three voices." 


Changes your Model 100 into a totally different 
computer with capability you never thought possible. 
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Infoworld 
rated Lucid's 
performance 
"excellent" 


on Snap-In" ROM 


PCSG says "Satisfaction Guaranteed 
or your money back within 30 days!" 


LUCID® is here now. It is on a ROM car- 
tridge that snaps into the compartment on 
the back of your Model 100. It takes no 
memory to load and no memory for operat- 
ing overhead. That means you have the full 
29.6k bytes free to store your data. 

First, LUCID® is memory conserving. It 
will let you build a large spreadsheet — 255 
row by 126 column capacity. You build huge 
spreadsheets in your Model 100's RAM that 
could consume 80 to 100K on a desktop 
computer. 

Secondly, LUCID? is fast. LUCID® is so 
rapid, a 36 column corporate financial 
statement took less than 4 seconds to 
calculate. 

Thirdly, LUCID? has features you won't 
find in most other spreadsheets. For ex- 
ample, when you type a label (text) it will 
cross column boundaries; in other words 
when you type a label or title it will appear 
as you јуре it irrespective of column or 
width. LUCID® also allows you to set col- 
umn widths individually, and of course 
LUCID® has insert row and insert columns, 
as well as other standard features. LUCID® 
even lets your formulas refer to cells in 
other spreadsheet files. 

Further, LUCID® has what no other 
spreadsheet has: Cut, Copy, and Paste. It 
uses the same keys as Cut and Paste in 
TEXT, but here's the difference: it takes all 
the formulas with it when you paste and 
they all automatically recalculate with the 
entire sheet. 

And here is what is really amazing. You 
can copy or cut from one spreadsheet and 
panie into another spreadsheet or even a 

EXT file. 

LUCID®supports all BASIC math func- 
tions as well as Log, sine, cosine, tangent, 
exponentiation and other sophisticated 
math functions. 

LUCID® has so many features that you 
will say “this is what | need in a spread- 
sheet’, such as automatic prompting of an 
incorrectly typed-in formula showing just 
where the mistake was made. 


LUCID® has expanded “go to” functions 
that remember and produce a windowing 
capability. 

But perhaps most remarkable is that 
LUCID® is not only a spreadsheet but a 
program generator as well. First, LUCID® 
lets you protect all cells against entry or 
change, and then unprotect just the cells 
you want for someone else to use as 
input fields. 

LUCID® will not only process values, but 
text input as well so that the facts other than 
numbers can be responded to. LUCID® has 
the ability for you to refer in a formula to 
cells containing words. This feature com- 
bines with the capacity of doing “if then” 
statements that work by doing table look- 
ups against even massive X/Y charts of text 
or numerical information. You can produce 
a program that responds to inputs with no 
programming knowledge whatsoever. 

Ou Can prepare a report section in your 
spreadsheet with instructions to your user 
for printout, and they can produce a person- 
alized printout that responds to their input. 
All your formulas and tables that did the 
calculations and provided the facts are in- 
visible to that user. LUCID® is useful for 
doctors for patient questionnaires, trouble- 
shooting technicians, purchase clerks, 
people doing job quotes, stores for custom- 
er workups, insurance agents and anybody 
who needs to process specific facts and 
numbers to produce a report based on 
those responses. 

LUCID® comes with a manual that ex- 
plains not only the characteristics of 
LUCID® but will train you how to use a 
spreadsheet even if you have never seen 
one before. You are shown how to do 
budgets, forecasts, breakeven analysis 
amortizations and many other types 
of personal and business reports and 
calculations. 

User friendly is such an over-used term in 
this industry, but a typical comment has 
been “I have never seen a spreadsheet that 
does so much, and yet LUCID® is so much 


easier and faster to use: 

LUCID® is a result of a most exhaustive 
developmental effort in which PCSG's 
objective was to develop a spreadsheet 
that was better than the state-of-the-art. We 
are so pleased because LUCID? provides 
for the Model 100 spreadsheet capability 
you cannot equal on a desktop computer. 

LUCID? is, in our opinion and that of 
those who have examined it, a break- 
through. We sell it on a 30 day trial. If you 
are not completely satisfied, return it within 
30 days for a full refund. Priced at $149.95, 
on snap-in ROM. MasterCard, Visa 


or COD. 
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Business decisions 
are seldom black and white. 


Open Access is the business 
software program that offers all the 
options needed for those tough 
business decisions. It's the 
sophisticated business program 
for the experienced user, for the 
decision maker that needs more 
than just a spreadsheet, needs, 
in fact, the expandibility and 
performance that only Open 
Access can provide. 

Our "Show and Tell" diskette can 
show you how it works, can show 
you how the more you ask of 
it the more it can respond. It 
will demonstrate the excellent 
graphics, show you the convenient 
windowing technique and the 
powerful word processing module 
and explain the variety of uses in 
the communications program. 
There's a Search button to speed 
up data retrieval and even a Help 
button to give on-screen assistance 
at a variety of levels. And because 
of the virtual memory design, 
Open Access can be used in a 
networking environment where 
multiple users need to share 
common data concurrently. Talk 
about a staff keeping in touch! 

And, with information 


management, word processing, 
time management and a 
spreadsheet that allows open 
channels between models, Open 
Access is a business program that 
really can provide instant access to 
what is needed to make the right 
business decisions — the first time. 








Information Management 

A true relational data-base, not just a 
search function in a spreadsheet; "Must 
Match" feature; query language; form 
query; mailer capability; report 
generator. 

Spreadsheet 

Goal seeking; virtual memory; 
typological recalculation; channel links; 
explicit consolidation. 
Communications 

Serial cable, acoustic or intelligent 
modems of operation; auto dialing; 

log file. 

Graphics 

Full color or black & white; text labels; 
carousel slide show; color, texture, 
palette alterations; rotate and tilt 
operations on 3D graphs. 

Word Processing 

Block margining; justification; two-file 
viewing; cursor movements; printer 
attributes (boldface, italic, etc.). 

Time Management 

Automatic appointment; scratchpad 
calendar; rotary phone and address file; 
search command. 


Suggested Retail Price $695 


Available on: 
Tandy 1000, 1200, 2000 


10240 Sorrento Valley Road • San Diego, California 92121 • (619) 450-1526 • Telex 499-0919 





By this time the listeners were 
groaning. “I know, there’s a lot to 
remember, but just try a few strings 
when you get home. It’s fairly easy to 
play some fancy songs. 

“Just a few more notes: The numeric 
values in the commands above may also 
be changed to variables by using an 
equal sign, the variable name, and a 
semicolon. If variable ‘K’ is 4, for 
example, D=K will set the octave to 
octave four. The equal sign and semi- 
colon delimit the variable name to 
differentiate it from a legitimate PLAY 
command. 

“Another trick: This form of PLAY (п) 
returns the number of notes currently 
in the music buffer, or zero if the 
program is in the foreground mode. It’s 
used to test how close to the end of 
a song the program is or to test the 
point at which to add another voice. 
The format of this function is: 


TEST=PLAY(Ø) 


TEST can be any numeric variable 
and (Ø) is a dummy variable.” 


Tandy Sounds — More Than PLAY 

Dan put down the sheet and looked 
at the audience. “All in all, the PLAY 
command is great. It's a far cry from 
what we could do on a Model I back 
in 78. Still, would you believe that you 
can do a whole lot more in BASIC? ГЇЇ 
show you what I mean." Dan loaded 
another program and started it. The 
1000 sounded a gunshot, made a sound 
like a falling bomb with an explosion 
at the end, gave a wolf whistle, and then 
played a piece that sounded like a 
harpsichord. There was a murmur of 
interest among the audience. 

*You must need a music board to 
do that," somebody said. 

*No, not at all. Everything you heard 
was done in BASIC. I'll show you how, 
but first you've got to suffer through 
some hardware descriptions." There 
were more groans from the audience. 

“ГИ make it as painless as possible, 
I promise," Dan declared. 

“Tell us about using Tandy equipment 
as boat anchors," came a belligerent 
shout from the Apple goons. This time, 
both of Dan's eyelids twitched, and it 
took him a little longer to recover, but 
he went on. 

*[n researching sound generation on 
the 1000, I knew that the Tandy 1000 
emulated the PCjr. That was helpful, 
because there just wasn't any technical 
information coming out of Fort Worth 
about the 1000, although a technical 
manual is listed in the computer 
catalog." 


The Complex Sound Generator Chip 

“The PCjr uses a Texas Instruments 
SN76496N complex sound generator 
chip. Sure enough, when I opened up 
the 1000, there was the same chip. The 
next problem was getting a spec on the 
496N. There's a pretty good spec, 
believe it or not, in the JBM PCjr 
Technical Manual, but the manual costs 
$60. I also wanted to get the original 
spec, though, because publication 
departments have a way of mixing up 
the facts. I finally located a copy of a 
copy — the spec is hard to get from 
TI, but try them first. I'd also recom- 
mend getting their spec on the 
SN76489N, another sound generator 
chip. It has some good examples of 
various types of sound generation — 
bird calls, jets, and so forth. 

“Anyway, let me describe the 496N 
to you, since you'll need to know about 
it to make some neat sounds. It has 
four channels of sound, three that 
produce square waves and one that 
produces white noise. Everybody know 
what white noise is?" Heads shook no. 

“White noise sounds like an AM 
radio tuned between stations. It's a 
hissing sound that actually is made up 
of many random frequencies at the 
same time. White noise is present in 
gunshots, jet engine noise, crowd 
sounds, and even in the human voice. 

"The noise channel can be pro- 
grammed for several different types of 


white noise. ГИ show you how later. 
The other three channels are the main 
tone channels. They can be programmed 
to produce a a square wave tone from 
one that's too low to hear to one that's 
too high to hear. Both extremes can't 
be passed through the 1000, by the way 
— it's really not a high-fidelity audio 
system. 

“Not only can you get different 
pitches for the channels, you can 
program different volumes. Actually, 
TI uses an attenuator for the channels. 
That's just a fancy way of saying that 
the sounds are reduced in volume. The 
volume for any channel can vary in 
about 15 steps from loud to no sound, 
and that includes the white noise 
channel too. 

*Once a tone or white noise and a 
volume are programmed into the chip, 
they'll remain until a new tone is 
defined. The chip will sit there, cranking 
out the tones and you're free to do other 
things in BASIC, assembly language or 
whatever. 

*A]] channels feed into a common 
output channel, so you can get а 
mixture of three different tones at three 
different volumes and white noise at a 
preset volume. 

“All well and good, you say, but how 
do you program this critter? I have a 
simplified diagram here." He passed out 
another sheet of paper (see Figure 4). 


Figure 4. SN76496N 
Complex Sound Generator 
Interface 
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“The 496N is controlled by something 
called a PPI, a peripheral interface 
adapter. There’s no magic in this — it’s 
just three eight-bit memory cells that 
hold control bits. Two of the bits 
control the routing of the sound. To 
route the output of the 496N to the 
audio output, you must execute an OUT 
&H61,&HEC. 

“Note: If sound and graphics are to 
be run together, use EH6B in place of 
the EH6C value. 

“The OUT command, by the way, is 
just BASIC’s means for addressing an 
input/output channel. It happens that 
this input/output channel is dedicated 
to the control bits shown in the figure. 
This addresses the PPI at address &H61 
and routes the output of the 496N to 
the audio channel. 

"Now you have the sound routed, but 
what about programming the channels? 
Well, there's another address involved, 
the address of the SN76496N chip. It's 
address is &HCO0. Programming the 
496N means doing another DUT, but this 
time with an address of &HCO: 


OUT &HC0 , XXX 


SN76496N Registers 

“Now comes the more difficult part. 
There are eight registers within the 
SN76496N. They аге" (Dan started 
writing on the board): 


Figure 5. Frequency vs. Count 


Values 
1100 
1000 
900 
4800 800 
4500 700 
4200 600 
3900 500 
3600 400 
3300 300 
3000 200 
2700 100 
a > 0 100 200 300 
2100 
1800 7 
1500 
1200 
900 
600 


300 
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Register 0 Tone 1 Frequency 
Register 1 Tone 1 Attenuation 
(Volume) 

Register 2 Tone 2 Frequency 
Register 3 Tone 2 Attenuation 
(Volume) 

Register 4 Tone 3 Frequency 
Register 5 Tone 3 Attenuation 
(Volume) 

Register 6 Noise Control 
Register 7 Noise Attenuation (Volume) 


“To set the tone frequency, you must 
send 10 bits of data to a frequency 
register. The ten bits range from one 
(0000000001) to 1023 (1111111111) and 
set a count value. This count value is 
counted down to make up the square 
wave frequency. The larger the value, 
the lower the frequency, by the way. 
The actual frequency sounded, for those 
of you who aren’t afraid of formulas 
is: 


f=3.579E6/(32*COUNT) 


“The 3.579 megaHertz value is the 
clock frequency of the 496N chip. It’s 
the same frequency as a television color 
burst crystal, a commonly used clock 
frequency for these types of things. The 
lowest frequency that can be set is 109 
Hertz (COUNT=1023).” 

“Here, I’ve drawn a chart to show 
you how the frequency changes with the 





COUNT.” Dan passed out still another 
sheet (Figure 5). 


“Follow this closely, now, folks,” 
Dan warned. 

“ To program the frequency, do this: 

1) Get the COUNT value from the 

formula or chart. 

2) Divide the COUNT value by 16 

and save the quotient as VALUE2. 
3) Multiply VALUE2 by 16 and 
subtract this from COUNT. 
The result is VALUEI. 

4) Do ап OUT &HCO,128+REG*16+ 
VALUE1. 

5) Do an OUT &HCØ, VALUE2. 

“The REG value is the register 
number for the tone — zero, two or 
four. Look, here’s an example. I want 
a frequency of 800 Hertz. From the 
formula: 

800=3.579E6/(32* COUNT) 

COUNT=3.579E6/(32*800)= 

3579000/25600=139.8 


“ГИ round off to 140. Dividing 140 
by 16 gives a quotient of 140/16=8 for 
VALUE2. Multiplying VALUE2 by 16 
and subtracting from COUNT is 140- 
8*16=140-128=12 for VALUEI. The 
OUTs are: 


OUT &HC0,128t0*16*12 
OUT &HCØ,8 


“The actual format of the frequency 
bytes is shown in this sheet, for those 
of you that are into binary.” Dan passed 
out another sheet. “However, if you 
stick with the procedure above, you'll 
be able to set the frequency with a little 
bit of work. This sheet (Figure 6) also 
shows the formats for the other registers, 
by the way.” 


“Now you have the tone frequency 
set. At this point the you may or may 
not have sound, depending upon what 
is in the attenuator register for the tone 
channel. To set the attenuator, do this 
OUT: 


OUT &HC@,128+REG*16+ATTEN 


“In this out, REG is one, three, or 
five for the tone channels and ATTEN 
is an attenuator value from zero 
through 15. Remember, the greater the 
attenuator value, the less volume with 
the sound. To set the loudest sound on 
channel zero, do: 


OUT «НС0,128%0%16%0 
(no attentuation) 





It's the Holmes Engineering/PCSG “chipmunk” 





PORTABLE , 


Uses the main menu concept. You see the 
disk directory instantly, arranged on your 
M-100 screen like your main menu. Just move 
the widebar cursor and transfer files with a 
function key. You can run a file directly from 
the diskette with the ENTER key. Uses 3'^" 
microfloppy diskettes that have a rigid plastic 
casing and a metal core. They're tough and 
nonflexible. You can carry several in a shirt 
pocket without damage. There's 358K on a 
diskette. Ten of these in your briefcase and 
you've got 3% megabytes. 

Drive weighs only three lbs. and it works 
directly from the 110 outlet and recharges at the 
same time. It recharges in six hours with 
thousands of pages transferred between 
charges. It's compact, with dimensions of 2" 
x SV" x 7.5": and fits easily into your briefcase 
along with your Model 100 or 200. 

Machine code programs, BASIC pro- 
grams, Lucid files and documents all are saved 
and retrieved with по protocol- instantly, ready 
to run. 

In a special association, Holmes En- 
gineering and PCSG have worked together 
combining the hardware knowledge of Holmes 
and the software expertise of PCSG. The re- 
sult is a product that can only be regarded as 
excellent. 





You see the disk directory 
instantly; works just like the 
main menu 





Here is what is really exciting. The port- 
able disk drive has Random Access. Included 
as part of the operating system in the drive 
(ROM) is a very powerful disk BASIC. 

This means that you can have BASIC 
programs that will access the diskette and read 
and write records directly on the diskette. 

Just imagine yourself with this kind of 
capability. 





Database — The portable disk drive stores 
your mailing list, inventory items, part #5 and 
descriptions or any other data that you need 
to recall. 





358K on a diskette 





Invoice (purchase order)- At the touch of 
a button you can print out your sequentially 
numbered, professionally done invoices. This 
is truly professional invoicing capability. 

Purchase orders are just as easy. 

Sort — This excellent utility allows you 
rapid sorting of any records you have compiled. 
You can write the newly sorted list back in the 
same file on the diskette or to a new file. 

Telecom interface – 11 you are a user that 
likes to access other computers or databases 
(for example CompuServe) by telephone then 
this powerful facility alone is worth the price of 
the disk drive. You can automatically download 
and upload information onto the diskette. 

Calendar — Everyone who has seen this 
program has said, ““Тһ15 is the first calendar/ 





, 






for the Model 100/200 


$599 


Includes a library of 
six powerful programs 


diary/scheduler on any computer anywhere that 
I can use. It is so functional." 

The calendar program is usable for two 
reasons, first it is designed correctly, and 
second you have the memory (358K) on the 
diskette to log and access a tremendous amount 
of notes over a long period of time. 

Personal Finance Manager — This 
wonderful program truly lets you keep track of 
your finances. 

АП your records are kept on the diskette. 
Bank accounts (checking and savings) and 
charge accounts such as MasterCard and Visa. 

We at PCSG believe we have the ultimate 
Model 100 system, the Portable Disk Drive 
plus the Lucid spreadsheet on snap-in ROM, 
Write ROM word processing and the new 64K 
RAM expansion now available from PCSG. 

We want you to find out for yourself at no 
risk. If you aren't totally satisfied within 30 
days, simply return the disk drive for a full 
refund. Priced at $599.95, including the soft- 
ware library. MasterCard, Visa, COD. 


HORIADLE 
СОМА СК 
КНТ 


ORCUP 
1-214-351-0564 


11035 Harry Hines Blvd., #207 
Dallas, Texas 75229 


ни POSG offers а 30-day/money-back trial! iwaw 
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or about 
> 


, 


s 


9 microseconds 
400 times per second for each OUT. 
That's faster than you can execute each 


although you could go that 
fast in assembly language. That's 
probably more than enough when you 


Tithe 
НИ 
ИНИ! 
> 


, 


"The hardware allows you to update 
consider that musical notes take on the 
order of tenths of seconds on up! 
Anytime you want to change the tones 


about every 8 


112 


BASIC OUT 


, 


is program. It allows you to set tones 


on any channel with any loudness. You 
can set from one to three tones at once 


too. (See Listing 2). 
“Dan, how often can you change the 


“Now you know how to set the tones 
settings?” asked one of the audience. 


“After you’ve done all of this, you 
ould hear a sound. As a practice, try 
and volume. Any questions?” 


па 
жеміт 
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Envelope Generation i 
“And now to show you some real JUL PLAT 
power! You're probably wondering | 
how I got that harpsichord sound. The (Listing 3) 
secret of this is ‘envelope’ generation. [1100 
Let me tell you what I mean. НИ 
“The envelope of a musical or other |2 7, HL 7, ДН ИРИ 
sound defines the characteristics of the ИВЕ ЛИРА | m РУАН НИНА 
sound. A piano note fades away far less | 139 I РИТ. . er. 1 ), ‚5нтЕТ(0- DSE "Ев sSHIET 
rapidly than a drum beat (see Figure 
7). Synthesizers use envelope generation 
and define the envelope by ‘ADSR’ — 
attack, decay, sustain, and release. (See 
Figure 8.) You can generate your own 
envelope by changing the attenuation |7777 
of a tone." 


"The program shows three types of 
notes. The first is a harpsichord-like 
note — its envelope looks like a ramp 
down. The second note is a ramp up 
— you'll never hear that in a musical 
instrument! It's like a tape recorder 
played in reverse. The third is a vibrato 
— ]oad, soft, loud, soft. You can make 
up your own at will." (See Listing 7 
and Figure 9.) 

“Get off the stage, turkey . . . " came 
a voice from the Apple corps. 

Dan turned toward the heckler and 
shouted, *And now for one final thing 






T 






















|100 Gunshot. change length by FOR 2-1 TO. VALUE 
110055 j Hf j 

120 ойт вне, anée | 

1130 OUT. &HCO, SHEO+1*4+0 

(140 FOR Тиј TO 15. 

[150 OUT &HCO, SHEOI f 

160 FOR Jel TO. ЖУ "NEXT J 

ТӨ NERE, d НИНИ 


“So saying, Dan did a double forward NT 707 
flip and landed directly in front of the |} ó 
group of Apple hecklers, crouched in inp 117 

O CLS” 
a karate stance. Two of the hecklers 120 OUT. И Аса 
immediately went into their own karate | ARE 
stance and brought out vicious-looking (130 OUT SKCO,SHEO+LTA+O . 
weapons fashioned from Apple moth- 140 FOR /I«10 TO 1 STEP -1 
erboards, obviously pirated versions [450 OUT 8 HCO,&HFO*I 7 7/57 
from Taiwan. In a matter of seconds |.160 FOR ‘dul TO. ИЛ КИР 1): INERT ДДД? 
— and several well-placed karate chops | 170. NEXT I ў 
— it was all over. The 300 pounder went | 180 FOR. Tel то 10 

190 OUT &HCO,&HFO+1 


first. The hecklers slunk off to the КР, 
remanants of their meeting, nursing 200 FOR 1-1 то 500*RNDC1): NEXT/J/ 
210 NEXT 1 | 


their bruised bodies. 
“Congratulations, Dan. You really 220 FOR Jel TO 1 000% RUBIIN “NEXT HH 
230 GOTO 140 ЙИР 





















cleaned them up,” I said, rushing up. 

Dan got a reflective look in his eyes. 
“What is the sound of one Tandy 1000 
crashing?” he asked, gave a short bow, 
and walked off to a standing ovation. 





[Matis 6). HHH 
/300 ' Bird song  . 
ПО уто ойт SHEL EHEC 

21120 FOR Jel TO. 30*RND(CI) 
(54130 FOR Tel TO 15 НИ 
755340 OUT 8HCO,(128*1) 
0150 OUT &HCO,l. 

LAO NEUE ИИИ? 
LITRO MEAE I zz // ИИ у ; 70/90 
180 OUT &HCO, SHOP FOR K¥1 TO 1000*RND(1): NEXT К: OUT &HCO,5H91 

11490 GOTO 120. ү ЖИЕ REL АННИ 
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Figure 9. Computer | 
Envelopes 
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(Listing 7) 
250 OUT &HCO,&H80+(COUNT AND &HF) 


260 OUT &HCO,INT(COUNT/16) 
270 FOR I=15 TO 1 STEP 

280 OUT &HCO,&H90-«I 

290 FOR J=1 TO K: 


300 NEXT I 
370 OUT &HCO,&H80+(COUNT AND &HF) 


170 OUT &HCO,&H90-*I 

240 INPUT "Count,duration: 
310 OUT &HCO,&H9F 

360 INPUT "Count,duration: 
380 OUT &HCO,INT(COUNT/16) 


320 GOTO 240 


330 
350 OUT &H61,&H6C 


230 OUT &H61,&H6C 


o 
о 
= 
2 
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~ 
= 
2 
н 
2 
о 
о 
сч 
et 


130 INPUT 

140 OUT &HCO, 
150 OUT &HCO 

160 FOR 1= 

180 FOR J=1 TO K 
190 NEXT I 

200 GOTO 130 

390 FOR I= 


Uu 
mi 
- о 
о 
— 
— 


' 
220 CLS 

' 
340 CLS 


100 
210 


400 OUT &HCO 


410 FOR Ј=1 TO K: 
420 NEXT I 


430 FOR Із5 TO 1 STEP 


440 OUT &HCO 


450 FOR Ј=1 TO K: 


460 NEXT I 


470 FOR I=1 TO 5 
480 OUT &HCO 


490 FOR J*1 TO K: 
500 NEXT I 
510 FOR I 


520 OUT &HCO 
530 FOR Ja 


540 NEXT I 


550 OUT &HCO 
560 GOTO 360 
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100, 200 


Add Search and Replace Power 
to Your Portable’s 
Text-Handling Functions 


By Richard Ramella 


ladimir Nabokov, who 15 best 

\ / known for his novel Lolita, once 

wrote a book whose main char- 

acter is named Cincinnatus. That name 
is a tangle of fingers to type. 

Nabokov made his writing job easier 
by abbreviating the name as C. in the 
manuscript, while instructing the type- 
setter to spell it out in every occurrence. 

I know this is so because I saw the 
manuscript of Invitation to a Beheading 
at the Library of Congress. 

Many word processing systems in- 
clude a capability that does the same 
job for the user that the typesetter did 
for Nabokov. 

It’s called “search and replace.” 

The portable computer has a string 
search capability while in the text mode, 
but doesn’t automatically replace 
anything. It’s up to the user to tap 
numerous key combinations, erase and 
retype. This is an onerous task. 

With my brief BASIC listing called 
Search-and-Replace, your portable 
now is able to search a document and 
replace one string of characters with 


(Richard Ramella is a former news- 
paper editor who now works as a writer 
for a California hospital. He has 
published more than 200 computer 
programs.) 


another — true search-and-replace 
capability. 

I wrote this utility program when an 
editor asked that I change the name of 
a character in one of my books. An 
otherwise four-hour job took 20 min- 
utes, and I knew the computer was more 
precise in its search than I could have 
been. 

Гуе used Search-and-Replace in 
many ways. Every month I have the 
job of preparing for publication a list 
which contains a boring abundance of 
the characters Mr. and Mrs. In prep- 
aration I type qz instead of Mr. and 
Mrs. and run the text file through 
Search-and- Replace. | yawn once or 
twice and the work is complete. 

I've also used the program to correct 
misspelled names throughout a 
document. 

Let's test the program. 

First, type the program into your 
computer and save it as a BASIC file. 
I suggest you also CSRVE it to tape. 

Create a text file named TEST. In it, 
type this sentence: /t did not pass the 
test. 

Run Search-and- Replace. In answer 
to the prompt Name of file to 
search? type “TEST” and ENTER. 

In answer to the prompt Sought 
string? type "did not" and press 
ENTER. 


Answer the prompt Replace 
string? by typing “did” and pressing 
ENTER. 

The work is automated from this 
point. When the change is made, the 
computer will beep 10 times and flash 
this screen message: F INISHED. 

Go to the text file named TEST. The 
words there should now read It did 
pass the test. The word did replaced 
did not. If the file had numerous 
occurrences of the characters did not, 
all would be replaced by the characters 
did. 

To avoid memory miscues, you 
should know just a bit about the 
internal workings of the program. It 
feeds characters out of the file and, with 
appropriate changes, sends them into 
a second text file called NEW. This isn't 
evident because the old version is killed 
and the new one given the old one's 
name after the work is done. What is 
meaningful is that the old file should 
not occupy more than half the available 
free bytes of the system. If it does, an 
OM (out of memory) error can occur 
when memory is filled. 

If you want to run very long files 
through Search-and- Replace, 1 suggest 
you send the new material to a cassette 
file. This method calls for simple 
program changes. To make them, just 
type these lines into the program: 
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180 OPEN “CAS:”+F FOR OUTPUT AS 


2 ШШШИШЕ 
МЕОРИ, QC. | РЕМ ШАШ 


| BAR CODED LISTING | 
“FINISHED” 
‚РСМ пт ИИ 
When using the program with these 
changes, position a fresh cassette tape The listing: 
in the tape recorder before running the s: 
program. Depress the Record-Play REM * Search and Replace * TRS-80 Mo 
buttons together. On completion, the 199/200 


changes will be ina taped text file with CLS: MAXFILES=2: CLEAR 750 

DEFSTR F,M,N,R,S,V: N="NEW. ро" 
INPUT "Name of file to search";F 
F1=F+".D0": INPUT "Sought string";S 


the same name as the original file, and 
the original file will remain in the 
system. 


A Couple Caveats INPUT "Replace string";R 
In text mode, the string search CLS: PRINT "Working..." 
command will find any combination of /Ø OPEN F+".DO" FOR INPUT AS 1 
upper- and lowercase characters spelling OPEN N FOR OUTPUT AS 2 
out a sought string. However, the V=INPUTS$ (1,1) :V1=V1+V: P=INSTR(V1,S) 
program Search-and- Replace makes а IF P>Øø THEN GOSUB 250: GOTO 192 
literal search. If you tell it to seek out Ø IF EOF(1) OR LEN(V1)>254 THEN PRINT 
X-ray, it will do so while ignoring such #2,Vli: vis" 


variants as x-ray and X-Ray. 

Take care when seeking small words. 
For example, if you ask the program 
to replace rich with opulent, it would 


220 ТЕ EOF(1) THEN 23% ELSE 199 
238 KILL Fl: NAME "NEW.DO" AS Fl: PRINT 
"FINISHED." 





change the sentence Richard isn't rich 24) FOR Х-1 TO 10: BEEP: NEXT: END 
to Opulentard isn't opulent. The way 259 PRINT $2,LEFTS(V1,P-1); 

around this is to hit the spacebar before 260 PRINT #2,R;: У1=""; RETURN 

and after typing the brief word string 27) END 

you're seeking. О 


MSDOS UTILI 
TANDY 1000, 1200, 
IBM РС/ХТ/А T 
No Technical Knowledge Required !!! Easy to Use. 


..... R A M D I 5 K ..... 

RAMDISK -- Use spare memory as a superfast disk to 
speed up applications. (You specify Ramdisk size), 
Appears to programs as a disk, but gives instant 

access. Easy to install and use. 


eases ALPHA TOOL BOX => 
ALPHABETIZED DIRECTORY DISPLAY -- View 
Directory on I screen (5 columns, sorted, Fast!). 
FIND FILE -- Search all directories for file. 
DIRECTORY DTREE -- Display all sub-directory 
names in an easily readable form. 
BACKMOD MODIFIED FILES -- Quick, automatic 
backup of files. Backup in same format as original. 
Perfect for Hard Disks. Also for floppies. 


s" BETA’ TOOL. BOX 7595 
SINGLE KEY COMMAND -- Define any text string 
(or DOS Command) as a single keystroke. Press 
single key to execute commands! 
COUNT LINES -- Superfast count of lines in a file. 
DUMP FILE IN HEX -- Formatted dump of file in 
Hex/Ascii. Scroll Forward, Backward, Begin, End. 


CHANGE FILE ATTRIBUTES -- Make files hidden, 
readonly, archive, etc. Set or reset attributes. 


EXPAND THE TANDY 2000% 
EY 


896K 


OF DOS ADDRESSABLE RAM 


Includes RAMdisk Software at No Extra Cost ... 
Add 640K of External RAM Memory to TANDY 2000's* 
256K of Internal RAM Memory for a total of 896K of DOS Ad- 
dressable RAM. 

* Uses only one (1) External Memory Card Slot 

* RAMdisk Software is included with the price. 


3 $495.00 for a 640K bytes of External 
cost: RAM Memory Board (Includes RAMdisk 
Software) 


Call about our Trade-in Exchange option 
if you already use Tandy's 128K External 
Memory Board. 


for ordering (509) 627-5291 
and information call: Hours 9:00-5:00 PST 
We accept Check, MO, Visa, Mastercard 


terrns: Add 7.3% sales tax in Wash. 
Add $3-shipping/handling, $5 foreign. 


TANDY 2000* 1$ A TRADEMARK OF TANDY CORPORATION 
Мак is а Random-Access-Memory based disk 


**** SERIAL PRINTERS %%%% 


r Serial Printer to your RS232 port. Full 
ата Easy commands. Complete instructions. 


Don’t miss the review of these ALPS utilitics in the 
February, 1985 issue of 80-Micro (Р.119). 


More ALPS Tools Available. Call or Write for ALPS 
catalog. Customer Support !!! 


ALPS 


ENVISION DESIGNS 23 Angus Road 
1808 ORCHARD WAY • RICHLAND, WASHINGTON 89352 om Warren, New Jersey 07060: = 





26 PCM September 1985 





| “proces: | Кнын. | 
imbering ofr ference citations with 7 


INT .BAS especially | 
rs of published ru 








iue Si ic PRINT. BAS is written in 
_ BASIC, you can customize your printing 
tasks and completely interface your 
word. рен with your printer, Ihe. 













affiliated em me vo 
Laboratory of. the 3 б 





1127 


September 1985 





Embedded Commands 

Embedded commands allow you to 
control the margins and appearance of 
your printed text. Embedded com- 
mands appear in your text file, but they 
will not appear in your printed 
document. 

Each embedded command must be 
on a line by itself. A command consists 
of a period followed by two letters. 
Embedded commands are also known 
as “dot” commands. Some commands 
are followed by one or more additional 
items that are called “arguments.” 

You may put a comment after a 
command with no arguments, or, at 
most, a single argument. This is a good 
way to identify the purpose of a group 
of commands. 


Commands may be entered in upper- 
or lowercase. 

Here are some sample embedded 
commands: 
.1m 4 The first command is fol- 
lowed by this comment 
«Sk 3 
-ti 1,3,c,CHRPTER ONE 


You will soon learn what these 
commands mean. Any guesses? 


Printing Files 

From MS-DOS you can run PRINT 
.BRS with the command BRSIC PRINT. 
When prompted with “DOCUMENT,” 
enter ‘A’ to get a listing of the files on 
drive A, or ‘B’ for those on drive B. 

If you want to print any document 
showing the format commands, put the 
command .di at the very beginning of 
the file. Then print the file. The 
command .di disables the embedded 
commands, so they are printed along 
with the text. 


Margins 
Here are the margin commands: 


Шап Set left margin to п. 
mn Set right margin to n. 
лт п Set top margin to п. 
.bmn Set bottom margin to n. 


Margins are stored internally as n- 
1. You can set the default values for 
the margins in Line 230 of PRINT . BAS. 
The hard upper-limit of margins will 
depend on the physical characteristics 
of your printer and the font you are 
using. 


Titles and Page Numbers 
Titles and page numbers use the same 
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general format. The arguments specify 
the line number on which to print, the 
position relative to the margins (left 
justified, centered or right justified) and 
the text to be printed. 


Up to 10 different titles may be 
specified. Page numbers and titles will 
be printed on each page after they've 
been defined, unless you turn them off. 
Once defined, they may be turned on 
or off, individually or all together. 

.pg L,P,abcd Print the page 
numbers at line L, 
position P, pre- 
ceded by abcd. 

Set the page 
number to n. If n is 
not given, printing 
of page numbers is 
toggled on/ off. 
Don’t print page 
numbers. 

‚пи Ргїпї раре 
numbers. 

Print title n at line 
L, Postion P, using 


.pnn 


.nn 


«ti n,L,P,RBCD 


ABCD. 
.nt Don’t print any 
titles. 
.ntn Don't print title n. 
SEL Print all titles. 
.tin Print title n. 


Illegally specified commands will be 
ignored. The defective command will 
be printed on your computer screen. 

The space between the command and 
the argument is optional. It does 
improve readability. 

PRINT.BAS assumes that 32767 is the 
largest page number you will ever need. 
If a larger number is needed, you can 
sacrifice speed of execution Бу remov- 
ing the DEF INT statement in Line 10. 


Line Spacing and Text Positioning 

Here are the commands that control 
the spacing and positioning of text on 
a page: 


-spn Set spacing to n lines. 
(Default = 1, maximum 
at 3) 

.Skn Skip n lines at this 
position in the text. 

‚уп Vertical tab to line п. 

.ce Center the next line. 

„сеп Center the next n lines. 

irj Right justify text. 

„пр Start a new page with the 
next line. 

„прп Start a new page if there 


are not n lines remaining. 


-pz Pause after each page 
feed. 

.inn Indent next line by n. 
spaces. | 

.in -n Outdent next line by n 
spaces. 


PRINT.BRS supports true vertical 
tabs. The printer control sequences for | 
these tabs may have to be changed for 
your printer in lines 3520, 3530, 7040 
and 7050. Note that two separate 
vertical tab channels are used. If your 
printer does not have true vertical tabs 
or multiple channels, then set the line 
feed flag (LF) to 1 in Line 250. This 
can also be done with an . 1f command. 


File Include 

You can direct PRINT.BAS to print 
a disk file as part of the current 
document. 


Print the entire file | 
"filename" at this 
position in the 
document. | 


. fi filename 


The File Include command does not 
force a page at the beginning or the 
end of the included file. Page numbers 
are maintained. 

The File Include command allows the 
creation of а master file that contains 
format controls and directs the printing 
of subsections. For example: 


„1т 5 PRINT CONTROL FILE 

.rm 20 (set margins for entire 
document ) 

„ет 6 

.bm 60 


«ti 1,3,R, PROPOSAL 
.t12,3,L March 3, 1985 
-fi BACKGROUND 

- fi RATIONAL 

.fi METHODS 

.fi TIME TRBLE 


The File Include command allows 
you to organize a group of related 
documents rather than create a single 
large document. 


Printer Setup 

You may send setup codes to your 
printer with the "quote" embedded 
command. 


Send 'abcd' to the 
printer. 


.qu abcd 


This is useful for sending special 
control codes to the printer without the 


need to modify PRINT.BAS. Note that 
the line is not treated as text. 


Printer Control 

PRINT.BAS allows you to place 
printer control characters anywhere in 
your text. By embedding these special 
characters, you can enable and disable 
up to three different print fonts. 

PRINT .BAS assumes that ASCII 252, 
253 and 254 are printer control char- 
acters for emphasize, underline and 
italicize respectively. These characters, 
along with corresponding control 
sequences for an Epson printer, are set 
in lines 40, 50 and 60. You may want 
to change these characters and/or 
corresponding control sequences to suit 
your particular word processor and/or 
printer. 

The program also supports non- 
breaking spaces. Non-breaking spaces 
are used when you want a group of 
words to appear together on the same 
line, such as Louis ТУ. PRINT.BAS 
assumes that ASCII 251 is the non- 
breaking space, but this can be changed 
in Line 30. 


Embedded Variables 

PRINT .BAS allows you to embed the 
names of variables in your text. The 
values of the variables are determined 
at the time of printing. А special 
character is used to delimit the names 
of the variables. ASCII 222 is the special 
character that is assumed, but this can 
be changed in Line 30. 


For example, a variable named 
“ADDRESS” could be embedded in 
your text using the special delimiting 
character. If a data file is not specified, 
or ADDRESS is not defined in the data 
file, then PRINT.BAS will request the 
value for ADDRESS from the key- 
board at the time of printing. The value 
will be inserted in the exact location 
where ADDRESS appeared. 


The variable named “DATE” will 
cause the current date to be inserted. 
Date format is set in Line 900. 

Embedded variables that are 
numbers or lists of numbers are 
assumed to be reference citations. As 
noted, reference citations are renum- 
bered sequentially at the time of 
printing. 

Reference citations are superscripted 
with the control sequences set in Line 
70. If your printer does not have 
superscription, set these sequences to 
null string. 


Printing References 

The .pr command causes references 
to be printed in the order in which they 
were cited in your document. 


PRINT .BAS expects your refer- 
ences to follow this command. 


apr 


The lines following a .pr command 
are assumed to be either in the form 
of references or embedded commands. 
A reference begins with a number and 
ends with a carriage return. Any line 
that is not of this form and is not an 
embedded command will cause the .pr 
command to terminate. 


1 вину 





EE 


id 





sk iiiki 


а 


вание 





панава данинен ЕН 


The more software you own 





Except for .fi and .pr, embedded 
commands will be executed when the 
reference immediately preceding the 
command is printed. The . f i command 
is executed immediately allowing you 
to look up references in separate files. 
A second appearance of the .рг 
command will cause the first .pr 
command to terminate. 

Sometimes it is useful to see the 
internal citation number in the printed 
document: 


If the # character appears 
within a .pr command, the 
internal citation number will be 


-prë 











the more you need Magic Menu: 


Magic Menu is a be performed with just a 


sophisticated menu system 
which provides full control 
of an IBM’ XT, PC, AT, or 
PC compatible computer. 
Easy to use menus allow 
the selection and execution 
of over 1000 applications 
programs without dealing 
with DOS or consulting a 
manual. 


Magic Menu interfaces 
between the user and DOS 
(version 2.0 or later) 
allowing any application to 


few keystrokes. Sequence 
screens allow automatic 
execution of a series of 
menu entries, while 
password security is 
available for all 
applications. 


Magic Menu can be made 
memory resident allowing 
use on systems without a 
fixed disk. Magic Menu 
also provides automatic 
screen blanking, dynamic 
variables for customizing 


IBM is a registered trademark of International Business Machines Corporation. 


CERTIFICATION 
SEAL 


general entries, speed 
entries for advanced users, [| Call us at (305) 768-2477 
and a host of other I for additional information 
advanced on how to put Magic Menu 
features. to work for you. The Magic 
1 Menu is priced at under 
$100 and will be shipped 
by return mail. Major 
' credit cards accepted. All 
inguiries are welcome. 





P.O. Box 1360 
Melbourne, FL 32901 


©1984 
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printed in the extreme right- 
hand margin following the 
reference, if there is room. 


PRINT .BAS assumes that 200 strings 
are enough lines for all references, 
including continuation lines and 
embedded commands. If more string 
space is needed then RF should be 
increased in Line 10. 


Selecting a Document 

The program initially assumes disk 
drive A as the default drive. Initial 
default set in Line 30. You can change 
the default by entering ‘B’ or ‘A’ instead 
of a filename, or you can override the 
default by specifying the drive along 
with the filename (e.g., B: FILENAME). 


Multiple Copies and Data Files 
After you have selected a document, 
PRINT.BAS will request the number of 





a 


комн 


ШІ, 159: RESUME із; 


| PRIN 


(1229 Ж 
i225 
ГЕЛ 


259. GRG- ICHA: BJA вео +, 


dmn "Аа: PL=GS: и DIM. Br (RA, (ape 
ТІ трт" FOR OUTPUT AS Lim 


ARNE PENE "READY. nen — тә ише 
ШЕ EOF (2). ЖАБ, CLOSE dyr ізі СОТО 19g. Н 
ЖЕНА, INPUTH2, УУЗ: PRINT Riba al 


FOR тар то 3: TI(, LØ: NEXT L, ЊЕ 
=й: RM=791 bin BM=631SP=1: ANTEN 


copies to be printed. The default is 1. 
Instead of entering а number, you may 
enter the name of data file. When a data 
file is specified, PRINT.BAS will print 
one copy for each record in the data 
file. Å record is 255 characters or less 
and is followed by a carriage return. 
Each record in a data file can be used 
as а source of data values according 
to the rules given by а .va command. 


Defining Variables in Data Files 

The .va command defines how 
values for variables are stored in data 
files. Values can be stored in а “delim- 
iter” format or in a “fixed field” format. 


Delimiter Format: 
. va, LAST NAME ,FIRST NAME 


The character that immediately 
follows the .va command is the delim- 
iter. When using the delimiter format, 





268 N=TM:GOSUB 7ØØØ:COSUB P 


265 IP L$2"" THEN GOSUB 799 . 
(278 IF IN: EN GOSUB. [Edi 
11282! 
2900] 
299 
ба: | 
319. LINE poena IF. ТІЛЕП на А НА 
МЕН Bhatt үй ELSE (60508. ШТЕЙН (| 
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ТЕ PR THEN ТЕ. VAL(LEFTS(AS, 1)) ОБ Ji THEN GOSUB 92ØØ:CR= 


the values in the data file as well as 
the names of the variables in the .va 
command are separated by this char- 
acter. In this example, each record in 
the data file is expected to contain a 
last name and a first name separated 
by a comma. 


Fixed Field Format: 
-Va,16,LRST NAME,16,FIRST NAME 


When using the fixed field format, 
the delimiter is used only in the .va 
command itself. The numbers preced- 
ing the names of the variables indicate 
the number of columns each value is 
expected to occupy. In this example, 
the last name is expected to be in 
columns one through 16, the first name 
in columns 17 through 32. 

PRINT.BAS will remove leading and 
trailing spaces when using the fixed field 
format. ËJ 


2154214) 


















"nui 








дай: Go 


629 
625 
632 


652 
662 
670 
675 
682 
692 


710 
722 
739 
742 
750 
762 
772 
78g 
11790 
799 
822 
812 


829. 


830 
84g 
899 
99g 


919 
1922 
939 
949 
952 
969 
972 
989 
99g 
999 


CRALEN (A$) <255: GOSUB 490: ТЕ. eR THEN. |60808 тар: coro ne ELSE ØP 'prnt А9 


C$-A$: LSLEN(AS): FOR МЕД. TO 3: I-INSTR(AS, (сав (N)) ii (0001 АЗАМАТЫ STRING | | 


NEXT N: IF CE THEN ENG CRN ta а. IN--IN*(IN*): HEM EN | 


PS=LEFT$ (AS, 1-1): I=LEN(AS) I: CS=RIGHTS(C$,I+1):! ASHRIGHTS (AS, m 

GOSUB 629:1-ASC(C$):0N 1+1 GOSUB 559, 549, 54g, 549, МИНА GOTO. ‘50g. 
T=8+(LP=IN) MOD 8:LP=LP+I: L§+LS4+SPACES (I): RETURN | ni "horizontl бар 
CE(I)=NOT СЕ(І):І5- и ИИ ИНИНИ [НЕН font 
VA-NOT VA:IF МА THEN АНА 


GOSUB 620: RETURN 
SLEN(PS):IF VA THEN ТЕ А THEN. МАНА RETURN 
FOR T=RM-LP+1 TO 1 STEP +1 


IF INSTR(" =" MIDS (PS; I,1)) THEN: т=т- (EDS (Ps, те, ae" ИШ {бото 652 | 
NEXT I FOR I=LEN (LS) | TO i STEP +y Hi 


НЕ INSTR(M =m MIDS (LS, T, 1)) (MIDS (LS, remp, 1)>сс8) THEN ет 


NEXT IN I=RM+LP 


L$=L$S+LEFTS(PS,I): PS=MIDS (BS, 2): IF RJ. ‘THEN GOSUB. opp 
GOSUB 7ØØ:GOTO 602 


IF I THEN MIDS(AS$,I) +CHRS$ (9) :MIDS (65,1) =CHRS(N) : 121-1: NSN-1 [КҮТКҮН | 


I-INSTR(AS,CHR$(9)):1F 120 THEN PS2AS: GOTO 608 НЕ | 7 м. то ШІ 


:ELSE ВЕЕР:РВІМТ " MISSING«"CCS(p)"»"VSPS: TAA RETURN | THE | VSSVARIBL. NAME | 
ТЕ LP+L<=RM THEN L$=L$+PS: ан RETURN | ИШИН КА 17 


RS-MIDS(LS, I+1) :LS-LEFTS (LS, I) i TOLEN (RS) : T=INSTR(RS, CCS) | 20 mana 


WHILE Т:Т=Т- 2+ (INSTR("WSp- ! R1SA33]C/Q1U", MIDS (R$, Inl, IA 
ISINSTR(I+1, RS, CCS) НЕКО: ТЕ RJ THEN 1772: GOSUB ТЕЛІ 
GOSUB 720: SERS] LP=LP+T GOTO Fit HEH 


i LN=Ø THEN GOSUB 1999 
ISINSTR(L$,CSS$):WHILE 1: итде (Be) туша, vipemers (15, 4... 
IF CF(2) THEN PRINTHL,CF$(2,Ø) /1L9=CF$ (2,1) 4+L$ | 
PRINT#1,SPACES$ (IN) ;L$;STRINGS(SP, GREG 

Буни" LN=LN+SP: LP=LM: INSLM: CE=CE+(CE>Ø) | 

IF LN<=BM THEN RETURN 


GOSUB 1999:IF LN«-PL THEN PRINTHL, CHRS(12):. um |'GOSUB FOOTERS | 


ТЕ! PZ) THEN GOSUB 159): 
LN-9:1F PN=32767 THEN BERE PRINT Mil PAGE NUMBER EXCEEDS: 32767"; 
МАЛЕ RETURN 


(ИШЕ ШИШ И ИШИНИН Hi In | 

WHILE MIDS(L$,I,1)=" mi iLPSIP-1: apen: XE ubi THEN WEND 
LS=LEFTS(LS,I): ТЕ ТРАВМ THEN RETURN:ELSE 1-9: FOR I=1 TO RM 
L=INSTR(L+2,L$," ") (IF L=Ø THEN IF I>1 THEN. 832: ШЕН dd 
LSSLEFTS (19, L)+" ENTER ГИР, НҮН NEXT I: RETURN | 


Ћи HINSTR (ҮНӨ, Сену): ШИИНИН | | (|| првок-5в. VARIBLO | 


МЫ I-1)):IF VE(T,Ø) THEN 96 ІШ lookup value | 
THA РОК T=Ø TO T:LSI*1:ISINSTR(L,VVS, VDS) : NEXT m 12111 ias | | 
PS-MIDS(VVS,L,I-(199)*256-L):RETURN | ИНЕ ШЕНІНЕ 

PS=MIDS$ (VVS,VF(T)9) VELT, 1)) тті: LeLEN(PS) | 

WHILE MIDS(PS$,I,1)=" ":I19131:WEND | 

IF I«L THEN WHILE MIDS(P$,L, 20" Viet END 


МОНЫ рН : RETURN 


1010 FOR N=N TO VT:IF LNSVT(N) THEN Шашы: LN=VT(N) | 


(ТЕ БЕ THEN PRINTA1,STRINGS(LNAL,CHRS$(13)) r: ELSE PRINT#1, CHR (12) 1 fveab | 


1920 IF INGTM THEN RETURN:ELSE ТР LN»TM AND IN««BM THEN 1090 | Hi 
193 TS-SPACES(258) TSTS FOR ІЗ TO ОШ. get Тін НЕ шо 
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ШЕ I=0 ОВ NC THEN PRINT 4) ИИ "МЕ | INPUT. Ps: Tem variable |) 


1000 FOR N=Ø TO VT:1F LN>VT(N) THEN NEXT N:RETURN | S ОШ ‘auuns/pacet ШШ 





31 


104) IF TI(I,Øø)=Ø OR TI(I,1)<>LN THEN 1070 

1959 IF I=Ø THEN TIS$(Ø)=TIS+FNSS (РМ) : T=LEN(FNS$ (PN) ) 
+TI(Ø,2)=T2-T*T1N2:TI(Ø,3)=T3-T*(2-T1)N2 ‘adjust page TI 

106) L-TI(I,2):MID$(I$,L)-CHR$(I):MIDS$(TS$,L)z'T" 

1878 NEXT I:T=1:L=INSTR(T$,"T") 

1Ø8Ø ТЕ L THEN WHILE L:I=ASC(MID$(I$,L) ) : PRINT#1,SPACE$(L-T) ;TI$(I); 
:T-TI(I,3):L-INSTR(T,T$,"T"):WEND:PRINT41,:LN-LN-41 'print titles 

1999 NEXT N:RETURN 

1999 ! 

2000 PS=A$:CS="";FOR I=2 TO 3 'DOT COMMANDS 

2010 L=ASC(MIDS$(P$,I)) :C$=C$+CHR$ (L+ (1-2+(1>90) ) #32) :NEXT I 

22832 CO-INSTR("LmRmTmBmVtPgPnNnNuSpSkCeTpNpInTiNtFiQuDiRjLfPZzVaPr",Cc$) 

2040 IF PR THEN IF INSTR("PrFi",C$)=Ø THEN 9300 

2050 CO=CO\2+1:P$=MID$(P$,4):IF CO<18 THEN GOSUB 6ØØØ:N=N+(CO<6) 

2060 ON CO GOTO 31ØØ,32ØØ,33ØØ,34ØØ,35ØØ,36ØØ,37ØØ,38ØØ,38ØØ,39ØØ, 4ØØØ, 4 1ØØ , 42ØØ 


,4299,4499,4599,4699,4799,4892,4992,5292,5192,5299,5399,5492 
3282 BEEP:PRINT " COMMAND ERROR > ";A$:RETURN 'command error 


3100 IF N<@ OR N>RM THEN 3ØØØ:ELSE LM-N:IN-N:LP-N:RETURN 'Lm=LEFT MARGIN 
3200 IF N<LM OR N>131 THEN 3ØØØ:ELSE RM=N: RETURN 'Rm-RIGHT MRGN 
3399 IF N<Ø OR N>BM THEN 3ØØØ:ELSE TM-N:GOTO 7222 'Tm-TOP MARGIN 
3400 IF N<TM OR N>PL THEN 3ØØØ:ELSE BM=N:RETURN 'Bm-BOTTOM MRGN 
3500 IF N< OR N»PL THEN 3ØØØ:ELSE «IF LN>=N THEN RETURN 'Vt=VERT TAB 
3510 SWAP LN,N:IF LF THEN PRINT#1,STRINGS (LN-N,CHR$(13)) ; : RETURN 

3520 PRINT#1,CC$"b"CHRS$ (1) СНВ$ (LN) CHRS (Ø); "већ channel 1 
3539 PRINT#1,CCS$"/"CHRS (1) CHR$(11)CCS$"/"CHRS (0) ; : RETURN ‘execute tab 
3600 CO-2:GOTO 4532 'Pg=PAGE TITLE 
3700 IF М THEN PN=N:C$="Nu":ELSE TI(Ø,Ø)=NOT TI(Ø,Ø) : RETURN 'Pn=SET PG# 
3800 TI(Ø,Øø)=C$="Nu" : RETURN 'Nu/Nn=on/off 
3900 IF N<Ø OR N>3 THEN 3ØØØ:ELSE SP=N:RETURN 'Sp=SPACING 
4000 N=LN+N-(LN=Ø) *TM:GOTO 3522 'Sk=SKIP 

4100 IF N<Ø THEN 3ØØØ:ELSE CE=N-(N=Ø) : RETURN ! Ce=CENTER 
42202 ТЕ М AND LN+N<=BM THEN RETURN 'Tp=TEST РАСЕ 
4300 GOSUB 7ØØ:IF LN THEN 76Ø:ELSE RETURN 'Np=NEW PAGE 
4400 N=LM+N:IF N<@ OR N>RM THEN 3ØØØ:ELSE IN=N: LP=N: RETURN 'In-INDENT 
4499 ! 

4500 IF N=% THEN FOR I-1 TO TI:TI(I,g)--1:NEXT I:RETURN 'Ti-TITLES 
4518 ТЕ N<Ø OR N>1Ø THEN 3ØØØ:ELSE CO=N 

4520 GOSUB 6ØØØ:IF N=Ø THEN TI(CO,)-2-1:RETURN !,Ø)=on/o0ff 
4532 N-N-1:IF N<Ø OR N>PL THEN 3ØØØ:ELSE ТІ(СО,1)-М ',1)=line# 
454) GOSUB 7ØØØ:TØ=INSTR(" L1CcRr",MID$(P$,2,1))\2-1:IF TØ<Ø THEN 3222 

4550 I=3:WHILE INSTR(" ,-;:/",MID$(P$,I,1))=@:I=I+1:WEND 

4560 P$=MIDS(P$,I+1):IF LEN(P$)>RM THEN 300) 

457) A$=P$:IN=Ø:LP=Ø:CE=Ø:GOSUB 400 ',2)=position 
4580 TI(CO,2)=(LM*(2-TØ)+(RM-LP) *T2) \2+1:TI(CO,3)=TI(CO,2)+LP 

4585 IF CO=Ø THEN Tl=TØ:T2=TI(Ø,2):T3=TI(Ø,3) :TIS=L$ 

4592 IN-LM:LP-LM:IF CO>TI THEN ТІ-СО 

4595 TI$(CO)-2L$:L$2"":TI(CO,g)--1:RETURN 'TI$ (CO) =text 
4599 ' 

460) IF N=Ø THEN FOR I-1 TO TI:TI(I,Ø)=Ø:NEXT I:RETURN 'Nt=SUPRESS TI 
4616 IF N<Ø OR N>1@ THEN 3ØØØ:ELSE TI(N,Ø)=Ø:RETURN 

4699 ' 

470) WHILE LEFT$(P$,1)2" ":PS=MID$(P$,2) :WEND:R$="" 'Fi=INCLUDE DOC 
471) IF MID$(P$,2,1)<>":" THEN RS$-DR$:0N ERROR GOTO 475Ø:GOTO 4730 

4728 ON ERROR GOTO 4760 

4736 OPEN R$+P$ FOR INPUT AS FI+1:FI=FI+1 

4746 ON ERROR GOTO Ø:RETURN 

4750 R$=CHR$ (66+ (ASC(RS$) =66) )+":":RESUME 4720 

476) GOSUB 3ØØØ:RESUME 474g 

4799 ' 

4820 WHILE LEFTS(P$,1)=" ":P$-MID$(P$,2):WEND:PRINT£1,P$;:RETURN'Qu-PRNT CONTRL 
4900 DI=NOT DI:RETURN 'Di=DISENABLE 
5000 RJ=NOT RJ:RETURN 'Rj-RIGHT JUST 
5100 LF=NOT LF:RETURN 'Lf-LINE FEED 
5220 PZ-NOT PZ:RETURN 'Р2=РАСЕ PAUSE 
5299 ! 

530) VN$="":FOR I=Ø TO 1Ø:VF(I,Ø)=Ø:VF(I,1)=Ø:NEXT I 'VNS=VAR NAMES 
5312 VD$=LEFTS$(P$,1) : P$=MIDS(P$,2)+VD$:T=Ø:L=1 'VD$-VAR DELIM 
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I=INSTR(P$,VD$):IF I=Ø THEN RETURN 'VF(=VAR FIELDS 
VS=LEFTS$ (P$,I-1) : P$=MID$(P$,I+1) :N=VAL(LEFT$(V$,4)) 1,ø)=field pos 
IF М THEN IF М<1 OR N+L>255 THEN BEEP:PRINT " FIELD OUT OF RANGE":RETURN 
:ELSE VF(T,Ø)=L:VF(T, 1)=N:L=L+N:GOTO 5329 ',1)=field len 
IF LEN(V$)+LEN(VN$)+2>255 THEN BEEP:PRINT " TOO MANY VARIABLES": RETURN 
GOSUB 5379:VN$-VN$-CHR$(T)4CC$4V$:T-T-1:GOTO 5322 

FOR I-1 TO LEN(V$) :N=ASC(MID$(V$,I)) 'make UPPERCASE 
IF N»96 AND N«123 THEN MID$(V$,I)-CHR$(N-32) 

NEXT I:RETURN 

' 

PR=NOT PR:IF PR THEN RP=INSTR(P$,"#W):N=@:RL=RF 

FOR I-1 TO RN:RF(I)=Ø:RF$(I)="":NEXT I:RETURN 'Pr=PRINT REF 
RF$(%)=A$:FOR RN=1 TO RN: AS$=RF$ (RN) : CR=LEN (A$) <255 

P$=A$:GOSUB 6ØØØ:A$=P$:IF RP THEN RP=N 
L$-FNS$(RN):LP-LEN(L$):IN-LM-LP-2:IN--IN*(IN»2):LP-LP-IN:RL-RN:GOSUB 40) 
WHILE CR=%:RL=RF (RL) :А$=ВЕЗ (RL) :CR=LEN(A$)<255:GOSUB 4ØØ:WEND ‘continue 
IF RP THEN В$=5ТВ$ (ВР) :I=8$-LEN(R$)-LP:IF I=>Ø THEN LS$=L$+SPACES$ (1) +В$ 
GOSUB 7ØØ:WHILE RF(RL) :RL=RF(RL) :АЗ=ВЕ$ (RL) ! commands 

IF DI THEN GOSUB 2ØØØ:ELSE GOSUB 4ØØ:GOSUB 799 

WEND:NEXT RN:RN=RN-1:RL=Ø:A$=RF$ (Ø) : RETURN 

' 

N=1: WHILE INSTR("-123456789",MID$(P$,N,1))-29:N-N*1:WEND 'GET N FROM Р5 
L=N+1:WHILE INSTR(" 9123456789",MID$(P$,L,1))>1:L=L+1:WEND 

ON ERROR GOTO 6Ø4Ø:N=VAL(MIDS(PS$,N,L-N)) 

P$-MIDS(P$,L):ON ERROR GOTO Ø:RETURN 

BEEP:PRINT " OVERFLOW > ";MIDS(P$,N,L-N) :N=Ø:RESUME NEXT 

! 

FOR I=Ø TO VT:IF УТ(І)<М THEN NEXT I:GOTO 793g 'Vt FOR TmTiPg 
IF VT(I)=N THEN RETURN 

FOR L=VT+1 TO 1+1 STEP -1:VT(L)-VT(L-1):NEXT L 

VT(I)=N: VT=VT+1:IF LF THEN RETURN 

PRINT#1,CC$"B";: FOR Т=1 TO VT:PRINT41,CHRS$(VT(I));:NEXT I ‘set channel ø 
PRINTH1,CHRS$(Ø) ; : RETURN 

' 

PRINT: PRINT A$;:INPUT;"",C$ ‘INPUT FILES 
IF C$="" THEN IF FI=3 THEN SYSTEM:ELSE C$="1":PRINT 1; 

PRINT:NC=VAL(C$) :IF NC*(FI=2) THEN 8079 

ON ERROR СОТО 8Ø8Ø:I=INSTR("A:a:B:b:",C$) 'DRS$-DISK DRIVE 
IF I MOD 2-1 THEN DR$=MIDS("A:A:B:B:",1,2):FILES DR$:GOTO 8202 

IF MID$(C$,2,1)«»'":" THEN C$=DR$+C$ 

OPEN C$ FOR INPUT AS FI 

ON ERROR GOTO Ø:RETURN 

BEEP:RESUME 8222 

' 

P$=V$:T=Ø:IF RL THEN RETURN ‘EXPLODE REF#s 
GOSUB 6ØØØ:I=N:IF LEFTS$(P$,1)="-" THEN GOSUB 6ØØØ:N=-N 

IF I THEN FOR I-I TO N:T-T-1:RF(T)-I:NEXT I:GOTO 9g1g 

FOR I-1 TO T:N-RF(I):GOSUB 91ØØ:RF(I)=N:NEXT I 

WHILE I:I-2:FOR L-1 TO T-1 'BUBBLE SORT RF 
IF RF(L)>RF(L+1) THEN SWAP RF(L),RF(L*1):I-1 

NEXT L:WEND 

P$-"":R$z-"'":FOR Ісі TO T:P$=P$+R$+FNS$(RF(I)):RS="," 'IMPLODE REF#s 
FOR 1=1+2 TO T:IF RF(L)-2-RF(L-2) THEN В$=СНВ$ (173) :I=L-1:NEXT L 

NEXT I:L$-L$4CF$(4,1):CF(4)--1:A$-CHR$ (9) -A$:MIDS$ (C$, 1) =СНЕ5 (4) : RETURN 

1 


R$-"«"4FNS$(N)4"5":FOR N=Ø TO RS:L-INSTR(RSS(N),R$) 'CONVERT REF# 
IF Г THEN N-VAL(MID$(RS$(N),L-*LEN(R$))):RETURN 

NEXT N:N=@:IF PR THEN RETURN:ELSE IF RN-RF THEN 9999 

RN=RN+1:N=RN: RS=RS+FNSS (№) ‘ASSIGN REF# 
IF LEN(RS$(RS))+LEN(R$)>255 THEN IF В5<10 THEN RS=RS+1 

:ELSE BEEP:PRINT " TOO MANY REFERENCES": RETURN 

RS$ (RS) =RS$ (RS) +R$ : RETURN 


ТЕ CR THEN P$-A$:GOSUB 6ØØØ:GOSUB 9199:RF$(N)=A$:RETURN 'ЗЕТ UP RF$() 
IF N=Ø THEN RETURN "LINKED LISTS 
IF RL>RN THEN RF(N)=RLi:N=RL:RFS$(N)=A$:RF(N)=Ø:RL=RL-1: RETURN 

BEEP:PRINT " RF() IS TOO SMALL": PR=Ø:RETURN 


[PCM] 
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Subroutine City 





Access Your 


Disk Directories 
from BASIC 


BASIC don’t support directories 


By Robert D. Covington F: some reason, most versions of 
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from inside a BASIC program. 
Ironically, BASIC is capable of extensive 
file manipulations but it is incapable 
of knowing what is on the disk. The 
closest GW-BASIC gets to accessing the 
directory from BASIC is the FILES 
statement. 

In the past few years, I have seen quite 
a few strange methods for getting 
around BASIC’s inability to access a 
subdirectory. One method is to clear 
the screen, execute a FILES statement, 
and use the SCREEN function to load 
the contents of the screen into a string. 
Another method is to create a file in 
the directory that points to the disk’s 
directory (you, of course, need a “disk 
zapper” and a lot of knowledge of MS- 
DOS to do this). Then, this file can be 
accessed from BASIC to read the direc- 
tory. As you can see, both of these 
methods are very cumbersome and 
prone to errors. 

In this month’s installment of “Sub- 
routine City,” a very short and simple 
subroutine is described that not only 
retrieves the name of the files on the 
disk but also various other information 
contained in the directory. 


(Bob Covington has been a computer 
programmer and consultant for the past 
six years, most recently focusing his 
attention on both the Model 100 and 
the 2000. He is also a technical writer 
and editor. Bob can be contacted at 
P.O. Box 37007, St. Louis, MO 63141.) 


1000, 1200, 2000 


MS-DOS’s Directory Structure 

MS-DOS stores three pieces of 
information in its directory: volume 
name, subdirectory information and file 
information. 

The volume name is the name that 
describes the entire disk. This name is 
usually set with the FORMAT utility when 
the ^V option is selected. In most cases, 
the volume name is used by users and 
application programs to verify that the 
correct disk is inserted in a specific 
drive. Like most system data, the 
volume name can only be accessed on 
the root directory. 

The subdirectory information is used 
to describe the name and files associated 
with a subdirectory. In most cases, the 
only user-readable information in this 
section is the actual subdirectory name. 
The rest of the information stored with 
the subdirectory entry is usually useless 
to the user. 

The file information is used to 
describe the name, size, date, time, 
attribute and location of a file. All of 
this information except for the location 
of the file and the file attribute is 
accessible from MS-DOS command 
level with the DIR command. 

How does MS-DOS know if an entry 
is a volume name, subdirectory or file? 
MS-DOS internally stores a two-byte 
attribute with each entry in the direc- 
tory. By setting and resetting individual 
bits in the attribute, a directory entry 
can take on various forms. Table 1 
describes the functions of the attribute 
bits used by MS-DOS. As you can see 
from this table, only six bits of the 16 


Table 1 
Directory Search Attribute Bit Map 
Bit: 

0 — Read only 

| — Invisible file 

2 — System file 

3 — Volume label only 

4 — Sub-directory names 

5 — Archive files 


available bits are used for the attribute. 
For example, if bit three were set in 
a directory entry, the file would be 
considered by MS-DOS to be a volume 
name entry. If bit four were set, the 
entry would be considered a subdirec- 
tory entry. 

The remaining bits in the attribute 
word are used to describe a user file. 
Read only status (bit zero, as the name 
implies, tells MS-DOS that the infor- 
mation in the file cannot be changed 
but only read. Invisible status (bit one) 
makes a file invisible from a normal 
MS-DOS DIR command. This status 
(bit two) is used to “hide” many of MS- 
DOS's internal files such as the BIOS. 
The system status is used to tell MS- 
DOS that a certain file is required for 
an operational MS-DOS system. Any 
file with this status is usually copied 
with a SYS or а FORMAT 75 command. 
If a file has none of the above attributes, 
it is usually considered an ordinary 
read/write access file. 

The archive status (bit five), unlike 
most of the other attributes, is period- 
ically changed by the system. The 
archive status is used to report if a file 
has been modified. This status is mostly 
used to inform copy utilities that a file 
has been changed and that the backup 
of that file should be changed also. In 
most cases, the status of this bit has 
no effect on the actual MS-DOS 
operating system. 


Directory Access Subroutine 

Lines 16000-16060 of Program 1 
contain the subroutine for directly 
accessing the information contained on 
a disk’s directory from BASIC. This 
subroutine will search through the 
entire directory for a file with a certain 
attribute and pathname. On entry to 
this subroutine, PNS contains the 
desired pathname search attribute and 
AT% contains the attribute to search for. 
The pathname can be any legal MS- 
DOS global pathname descriptor. For 
example, if PNS were equal to *.BAS, 
the subroutine would search for all files 
with the .BAS extension. The search 
attribute can be used to include files 


with peculiar attributes in the directory 
returned to BASIC. A few examples of 
legal attributes are: 


0 — All normal files with no special 
attributes 
7 — All readable files 
8 — Volume name only 
15 — All readable files and volume 
name 
16 — Normal files with no special 
attributes and subdirectories 
31 — All readable files with volume 
name and subdirectories 

With MS-DOS 2.1x, performing the 
command: PN$="*.*":ATÆ%=31: 
GOSUB 16009 will cause this subroutine 
to return all of the directory entries on 
the current default drive/directory. If 
such a universal search qualification is 
used, make sure your program recog- 
nizes that the returned information 
includes more than just filenames. 

On exit from the directory access 
subroutine, N contains the number of 
directory entries found, N$( ) contains 
the path/ volume/ directory name found 
in each directory entry, і! ( ) contains 
the length of the file in bytes, AT%( ) 
contains the actual attribute of the 
directory entry and E contains the error 
status. The error status returned in E 
can have the following error codes: 


0 — No error 
2 — Invalid pathname 
18 — No match 


The arrays N$( ),L'!( ) and ЯТ%( ) 
only contain information on directory 
entries that meet the pathname and 
attribute qualifications passed to the 
subroutine on entry. If, for example, 
a very ambiguous search qualification 
is used, such as PN$="%*.*":AT%=31, 
the attribute in AT%( ) will need to be 
used to organize the returned informa- 
tion into the directory's three distinctive 
groups (volume name, subdirectories 
and files). If a very specific search 
qualification is used, such as 
PN$-^"^DB.BRS^:RTX-0, the data 
returned from the subroutine should 
not require many array elements. 

The demonstration program in lines 
30-75 obtains the filenames of all the 
files with a .BAS extention on the 
current default drive and allows them 
to be executed by the program. Line 
30 loads the names of all the normal 
attribute files with a .BAS extention 
into N$( ). If no files are found with 
the .BRS extention, the program prints 
a warning message and the program is 
aborted. Lines 50-75 allow the user to 
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Educational Software 
that WORKS 
at PLAY 


An innovative and entertaining 

puzzle game designed with well 

known crossword techniques. 

• For TANDY Computers 

• 45 different color puzzles 

e Timing and Scoring 

* Additional puzzle diskettes 
available 

Call 
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or send for information to 
ISTAR CORPORATION 
P.O. Box 567 
Brandon, MS 
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scan through the list of program names 
by pressing the up and down arrows. 
As the user scans through the names, 
each filename is printed in the center 
of the screen. When the space bar is 
pressed, the RUN in Line 100 executes 
the BASIC program that is currently 
displayed on the screen. 


Subroutine City Corrections 

In my June 1985 installment of 
“Subroutine City,” I made a slight error 
in describing the efficiency of the binary 


Тһе Listing: 


search algorithm. On Page 57, I stated 
that “... the greatest number of 
compares (required for a binary search) 
is equal to the square root of the number 
of records in the data array.” I am sure 
that any Computer Science professor 
would shriek at those words. In actu- 
ality, the greatest number of compares 
required by a binary search is equal to 
the LOG base 2 of the number of 
records in the data array. This means 
that a 1,000 element array requires only 
ten actual compares (not 33 as I stated 


ps RN MSDOS ЕТАН PAINE Ha Hui for BASIC 
ЧҮ *** By Robert D. 'Covington 

"18 DIM B$,AX,BX,CX,BP,SI,DI,SW,N$(1992),L! (199g) , AT% (1822) , T (1922) , D(1ØØØ) 

(28 FOR X=1 то 198: READ A: ВІ055- BIOS$+CHR$ (А): NEXT:X-FRE(X) :V-VARPTR(BIOSS): BIOS! 


=РЕЕК(У+1) +PEEK(V+2)*256 


25 SP$-SPACES (89) :NL$=CHRS (Ø) 


ND 


later in the article). In either case, the 
binary search is still one of the fastest 
searches around. 


End Notes 

If you have any question, comments, 
suggestions, etc. on any of the material 
presented in this series or questions 
about Tandy's MS-DOS, feel free to 
write to me at P.O. Box 37007, Creve 
Coeur, MO 63141. Please enclose a self- 
addressed stamped envelope if you want 
a reply to your letter. 


3g AT$-9: РЕ, BAS":GOSUB 16ØØØ:IF N=Ø THEN LOCATE 12,36:PRINT"No Files":BEEP: E 


40 CLS: ' PRINT'Use the Up and down arrows to scan through the available BASIC prog 
rams.":PRINT'"Press the space bar to run the program.":F-g:GOTO 69 
59 AS=INKEY$:IF Аб="" THEN 59 ELSE A-ASC(AS):IF A<3Ø ОК A>32 THEN 59 ELSE ON А-2 


9 GOTO 60,70,100:GOTO 50 

| 6Ø Е=Е+1:ТЕ F>N THEN F=1 
65 GOTO 75 . 

79 F-F-1:1F Р<1 THEN F-N 


75 LOCATE 12,1:PRINT SP$;:LOCATE 12,(89- ped ИЕ: PRINT На ву denen 5g 
100 XS=NS (F): :RUN LEFTS(X$, INSTR(XS,". ")-1) 


999 END 
16000 * 
16771 ' 
16002 ' 
16003! 
16004 t 
16005 I 
"epe run 
ЖЕҢ ИИНЕНИН 
"16028 ' 
16809 © 
epp ' 
| 16929 
16030 


kkk Read directory 


- Pathname | 
Search file attributes 


= Error status 

= Number of files found 
Matching pathnames (files) 
Length of file in bytes 
Attribute of file 


B 4ØØØØ:N=Ø:E=AX%:IF E>Ø THEN RETURN 


116040 N=N+1:X$=MIDS(AS$,31) :N$(N)=LEFTS(X$, INSTR(X$, NDS) ) 


1233: AS=SPACE$ (43): GOSUB 32ØØØ:AX%=6656:GOSUB 40000 
AX%=19968:CX%=AT%: PNS=PNS+CHRS (9) :5МАР PNG,A$:GOSUB 32222: SWAP PN$,A$:GOSU 


16050 LI (N)=CVI (MID$ (A$, 27, 12) ) +CVI (MEDS (AS, 29,2))%655361: AT3 (N) -ASC (MIDS (A$, 22,1 


NEW 


TANDY 200 24K EXPANSION MODULES 5129. 


TWO EXPANSION MODULES FOR $249 


Ш 8K MEMORY MODULE $35 Ш 


For your Model 100 & NEC PC-8201. Field proven (over 20,000 in use), factory tested and fully supported. 


Just for your NEC PC-8201 


SIDECAR 32K RAM CARTRIDGE $159 
Expandable to 128K/Plugs into side of the NEC PC-8201 
Each additional 32K RAM bank $30, installed. 


PURPLE 420 Constitution Ave. 
#4 COMPUTING Camarillo, CA 93010 
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Portable Thermal Printer 


TTXpress MODEL 1280 $149 
Battery opperated, 2.2 Ibs., 8%” 


FREE SHIPPING, HANDELING & INS. FOR CONT. USA. 


paper, 40 cps., parallel. 


Orders shipped UPS next business day. 30-day satisfaction, 
money back guarantee. We accept Visa, M/C & Amer. Exp. 


Checks held 18 days. 





(800) 732-5012 


(805) 987-4788 (in сан) 
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Plot Against Your сна tion! 


with QuickPlot® 


We're the people who gave {пе CGP- 
115 Color Plotter business status. 
With QuickPlot, your Model 100, or 
Tandy 200, produces high quality 
line-, bar- and pie-charts in vivid 
color. Simple data entry and flexible 
chart formatting makes QuickPlot 
and the CGP-115 Color Plotter the 
logical choice for the professional 
who wants to plot his profits—not 
spend them. 


COMPANY KY2 - 1982 


MONTHLY SALES ANALYSIS 





SALES (x 1000) 


BEAST COAST 


BnID-WEST 


Complete QuickPlot Package 
Includes: Bar Chart, Pie Chart 
and Line Graph. Data and chart 
formats save to disk or tape for 
future plotting. 


8425" COAST 





STILL ONLY 


549.00 


We рау shipping 
on pre-paid orders 


Model 100, Tandy 200 and CGP-115 are 
registered trademarks of Tandy Corporation. 


Now you have a friend in the software business. 


Computer Solutions Co. 
P.O. Box 24383 
Louisville, KY 40224-0383 
(502) 245-0232 
Call or write to place your order or send for tree 
information. 





September 1985 PCM 








200 





A potentially dangerous bug is discovered in Tandy 200 BASIC. 
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Then X Equals Ten Trillion 
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Assembler. And I make mistakes. 

Usually, I end up spending more 
time debugging my programs than I 
spend writing the programs in the first 
place. Most programmers would tell 
you the same thing. The people who 
developed Microsoft BASIC for the 
Tandy 200 would probably concur. 

I tell you this because Microsoft 
writes some really great software and 
does, for the most part, a thorough job 
of debugging the software. When 
writing a BASIC program, I encounter 
many of my own mistakes. It is rare 
that I encounter a mistake in the BASIC 
interpreter itself. 

Typos are the most common errors 
made. A misplaced comma here or there 
does the trick just fine. For example: 


Ге software, both in BASIC and 


FOR X-1 TO 100 
(Note that the comma does not belong 
here!) 


Typos usually are detected by the 


BASIC interpreter and generate the 


(Dr. Laurence D. Preble is a Louisville 
chiropractor who worked his way 
through college by programming. His 
avocational interests include flying and 
ham radio. His interest in microcom- 
puters dates from when you had to build 
your own — which he did.) 


By Dr. Laurence D. Preble 


infamous ?SN error (syntax error). 1 
make lots of syntax errors! 

Grammatical errors occur when 
properly spelled words are just used 
incorrectly. An example in English 
could be, “For years I could not spell 
programmer. Now I are one.” A BASIC 
example: 


NEXT X:FOR X=1 TO 199 
(Should read: FOR X=1 ТО 1ØØ:NEXT 
X) 


The BASIC interpreter will detect 
most grammatical errors as well as 
errors in syntax. 

Logical errors are more trouble to 
detect. Logical errors occur when you 
give the computer a grammatically 
correct statement which unfortunately 
does not convey the right message. 
Have you ever spoken with someone 
who just happened to be talking while 
sound asleep? I have. You might get 
something like, *Larry, don't forget to 
wind up the refrigerator!" Now, that 
is a grammatically correct command — 
but it just does not make any sense! 
In Computer Lingo, you might have 
said something like FOR X=1 TO 100 
when you really meant to say FOR X-1 
to 200. Both statements are grammat- 
ically correct. Only one will do the right 
job. 

A truly rare bird is "The Dreaded 





System Bug!” Unfortunately, I just 
stumbled across exactly that sort of 
error in Microsoft BASIC for the Tandy 
200. 

The bug is easy to miss because it 
only pops up when all of the conditions 
are just right. The bug involves a 
combination of two unrelated state- 
ments. INT and PRINTUSING. To 
illustrate the bug, type in the following 
simple program: 


10 X=INT (.1) 
20 PRINT X 
30 —PRINTUSING "HHHHHHHHHHHHHET ; X 


In Line 10, Х should be assigned the 
integer portion of (.1). Since the integer 
portion of (.1) is 0, X should be equal 
to zero! 

In Line 20, the value of X is printed 
out. Sure enough, the answer is zero. 

In Line 30, X should again be printed 
out but should be printed with 13 
leading blanks because of the rules of 
formatting used with the PRINTUSING 
statement. 

Now lets look at what really happens. 
Run the program. The Model 100 
executes this program correctly; the 


LOW LOW PRICES 


on 


Hard Disk Drives 


Tandy 200 does not. The correct output 
would be: 


0 
9 


Notice the 13 spaces before the second 
zero. The PRINTUSING statement cor- 
rectly inserts the extra spaces according 
to BASIC’s rules of formatting. 

The output on the Tandy 200 is: 


д 
10000000000000 


Тће ordinary PRINT statement cor- 
rectly shows X to be equal to zero. A 
PRINTUSING statement claims that X is 
equal to ten-trillion. (One thing you can 
say about computers is that when they 
make mistakes, they make them big!) 
By the way, you may substitute the 
word F IX forthe word INT and the same 
problem occurs. 

Now substitute the following line for 
Line 20 


20 PRINTUSING^H":X 


Run the program again. The new 
output on the Tandy 200 is: 


@ 
%10000000000000 


The % sign just means that the number 
printed was too huge to fit in the 
assigned format. 

In general terms, Microsoft BASIC for 
the Tandy 200 makes an error any time 
you take the integer portion of any 
number less than one but greater than 
zero and then print the result with a 
PRINTUSING statement. The problem 
also occurs for numbers greater than 
negative one but less than zero. 

It may be a while before a corrected 
version of Microsoft BASIC is available 
for the Tandy 200. Until then, you may 
compensate for the bug by rewriting the 
program as shown below: 


10 X=INT (.1) 

15 IF X70 THEN X=@ :REM (This line 
is the fixup!) 

20 PRINT X 

30 —PRINTUSING"HHHHHHHHHHHHHH" IX 


In Line 15, X is being reassigned to zero. 
This seems to fix the problem with the 
PRINTUSING statement. [PCM] 


TOLL FREE ORDER LINE 


Floppy Disk Drives 


Star Printers 
Anchor Modems 


Diskettes 


Color Computer Dr Ø 


Single ps&case $44.95 
Color Computer Controller (J&M) 


TANDON. МР! OR TEAC DRIVE! SINGLE SIDED 40 TRACKS SPEED Sms ТАК TO TAKA UP 
POWER SUPPLY and CASE TWO DRIVE CABLE WITH ALL GOLD CONNECTORS 
5: 


ду JBM CONTROLLER MANUAL and DOCUMENTATION 
5 


ғ. 
5 ~ 

Ж” 4" PANASONIC 1/2 MEIGHT DOUBLE SIDED DOUBLE DENSITY DRIVE 500K untormalied 

GOLD CONNECTORS _ 


577 POWER SUPPLY and CASE, оша cane MA, ALL 
J&M CONTROLLER MANUA; 
TAKE ADDED SAVINGS ON TWO DRIVE SYSTEMS 


DISKETTES with tree library case 
Unadvertised Specials .. 


Drives cleaned, aligned & жери 
TECHNICAL STAFF ON DUTY PLEASE CAL 


(617)234-7047 
4-800-635-0300 


nd DOCUMENTATION 


бы 
CALL US TODAY!! 
“С ORDER TOLL FREE 


TRUE DATA PRODUCTS 
T 195 Linwood Street, P.O. Box 546 Wo 
Linwood, Massachusetts 01525 «Visa Maste 
^ (617) 234-7047 *Checks а 





HOURS MON SAT 9 6 ES 


Dual ps & case 


L FOR ASSISTANCE 


*DEALER INQUIRIES 


each 64K installed 


Color Graphics Card 
(with Composite 


....%79.95 
5129.95 


$ SALE! 


10 MEG 


1/2 Height 
Low Power 


Call for 
LATEST 


INVITED 
(617) 234-7047 


(800) 





MULTIFUNCTION 
CARD (Ser. Par. 
Real Time Clock 


& Light Pen Ports) 


FOR MODEL 1000 
SECOND DRIVE 
(Exact Match) 


HARD DRIVE & 
CONTROLLER 


PRICES!!! 


245-6228 


(800) 245-6228 


«UPGRADES: 


FOR MODEL 1200 
and IBM PC 


OUR “NEIGHBORHOOD 


COMPUTER 
PRICE STORE" 


$759. 
$95.00 


$350.99 


NO 
EQUIVALENT 


00 


$110. 


$124. $299.99 


$575.$1,000.99 


WARRANTY 
Å YR. ON ALL ITEMS! 


M.C. & VISA Accepted 


OWL-Services 
P.O. Box 116-D 
Mertztown, PA. 

19539 


PA Res Include 6% Tax 
7 РА (215) 682-6855 
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USE YOUR DESKTOP COMPUTER AS A 
DISK DRIVE FOR YOUR M-100. 
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Try Disk + for 30 days. If you aren't as 
excited as we are, return it for a full refund. 


When we designed Disk + we did it out 
of necessity. We wanted a way that we 
could just connect a Model 100 to our 
desktop computer with a cable and save 
files onto the desktop's disk drive. We 
wanted it to be so simple to use it would 
be self-explanatory. 

Picture this. Disk-- comes to you on a 
Snap-in ROM and a diskette for your 
desktop. You take a quarter and open the 
little compartment on the back of your 
Model 100. Then you just press the ROM 
into the socket. Disk+ appears on your 
main menu just like a built-in. 

You connect your Model 100 to your 
other computer using an RS232 cable 
(available from PCSG for $40). 

You just place the Disk + diskette into 
the desktop's drive and turn on the com- 
puter. It powers up automatically and says 
"awaiting command" on your desktop's 
screen. Then you just put the widebar 
cursor on the Model 100 main menu on 
Disk + and press ENTER. You are shown 
your RAM files arranged just like the main 
menu. 

To save a file to your other system's 
disk drive, you just move the widebar cur- 
sor to the file you want to save and press 
ENTER. It is saved instantly with no 
further action. 

To look at the disk directory, you just 
press a function key on your Model 100. 
You see immediately the disk directory on 
your Model 100 screen, and it is arranged 
just like your Model 100's main menu. 

To load a file from the diskette to your 
Model 100, you just move the widebar 
cursor to the file and press ENTER. The 
file is transferred to your Model 100's RAM 
instantly. You can press F8 and go back to 
the main menu, and the file you loaded 
from diskette is there, ready to use. 


о адалт пива ылу че ........................................... 


It is so nice to be able to keep your 
documents, programs (both BASIC and 
machine code) and Lucid spreadsheet 
files on the diskette, and bring them back 
when you need them. All files are ready 
to run or use with no changes or protocol 
by you. 


LAM 


If you have access to a desk- 


top computer and don't 
have Disk + , then evidently 
we have done a poor job 
telling you about it. 


нЕ отпор типа лавенињени s авл заканата таа, 


All files and programs that you load or 


save, go over and come back exactly as 
they are supposed to be because of full 
error checking. This guaranteed integrity 
is really a comfort. Disk + is wonderful in 
so many other ways. For example, you 
can do a "save all" of all your RAM files 
with just a touch of a function key. That 
group of files is saved on the diskette 
under a single filename with a .SD (for 
subdirectory) extension. Any time you 
want, you can bring back all those files at 
once, or just one or two if you like, again 
with one-button ease. 

Disk-- takes up no RAM. That's zero 
bytes either for storing the program or for 
operating overhead. 

What really excites most Disk + users 
is text file cross compatibility. Your Model 
100's text files are usable on your desktop 
computer, and your desktop's text files 
become Model 100 text files. 

This means you can write something on 
your Model 100, and with Disk + transfer it 


d 


1-214-351-0564 
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instantly to your desktop and start using it 
right away on your bigger computer. Or 
the way we like to work is to type in a 
document on the desktop computer and 
then transfer it to our Model 100 with 
Disk +. Then we print out the document, 
beautifully formatted, using WRITE ROM. 

Disk-- works with just about every 
micro sold, from IBM PC and its clones, to 
all Radio Shack computers (yes, all), to 
Apple |, Kaypro, Epson and most СРМ. 
Just ask us. More than likely, your comput- 
er is supported. 

Incidentally, hundreds of Model 100 
owners have gone to their Radio Shack 
stores and bought a color computer be- 
cause it is so low priced, and with Disk + 
they have an inexpensive disk drive. 

And if that weren't enough, how about 
this: Disk + also provides cross-compati- 
bility between different computers like 
IBM, Apple or the Model 4 using the Model 
100 as the intermediary device. Quite a 
feature! 

The snap-in ROM is really great be- 
cause you can use other ROMs like Lucid 
or WRITE ROM. They snap in and out as 
easily as an Atari game cartridge and you 
never lose your files in RAM. 

Anyone who ever uses Disk-- simply 
can't do without it. But so many times we 
have had new users call us and say, 
"Wow! I had no idea when | ordered it that 
Disk + would be so fantastic. | just 
couldn't believe that | could use my 
desktop computer's disk drive with my 
Model 100 just like it is another main 
menu." 

That's why we sell Disk + on a thirty- 
day trial. If you aren't completely satisfied, 
return it within thirty days for a full refund. 
Priced at $149.95 on Snap-in ROM. Mas- 
terCard, Visa or COD. 


RORTABLE СОМЕ ТЕБ URORT ORQUP 


11035 Harry Hines Blvd., #207, Dallas, Texas 75229 • 1(214) 351-0564 


PCSG provides hotline software support for the Model 100. Call us at 1-214-351-0564 
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А no-frills word processor that is so quick and 
simple the author calls it an ‘unprocessor’ 





2000 





The ‘Tandy Typer’ 


ot too long ago I picked up my 
| N new Tandy 2000 and my first 
software package, a big, high- 
powered word processor. I wanted it 
so my two teenagers could use it for 
their school work. It turned out that 
the word processor was so complicated 
that even my wife didn't want to use 
it for her college work; it looked like 
two or three months' work before she 
could master all the keys and com- 
mands necessary to write a simple letter. 
She may have been correct, but we'll 
never know because there was no way 
that she or the kids would spend that 
kind of time learning how to use any 
word processor. Since the computer 
was new and I needed to learn GW-BASIC 
anyway, I decided I would program a 
word processor in BASIC to help me 
master the new language and the new 
computer. 

The result is a small word processor 
that is so simple to use it doesn't even 
need an instruction book. I don't even 
call it a word processor. I call it a word 
UNprocessor, and have named it the 


(Bruce Blair holds a bachelor's degree 
in electrical engineering. He is an 
electronics division manager and has 
been awarded several patents in the 
electronics field. He programs in several 
languages, but uses his Tandy 2000 for 
relaxation and therapy.) 


By Bruce Blair 


Tandy Typer. The basic goal was to 
duplicate an electric typewriter where 
possible and then add some functions 
that can only be done by a computer, 
i.e., document storage, full page editing, 
etc. Soon after I began, I came to realize 
that the basic instruction book that 
arrived with the 2000 was not an 
instruction book at all but an IQ test. 
Some of the guidelines and examples 
were either too brief or too complex 
to understand and, in some cases, 
exactly backward. If I was having 
problems with the book, then others 
would be too. It came to me that if 
I documented the program well, it 
would be of help to others who were 
battling their way through GW BASIC 
as well. 

In effect, I wrote a small BASIC 
program that can be used as a tutorial. 
It is full of tricks that took weeks to 
ferret out of the books and get working 
in a BASIC program that can push the 
interpreter into high gear. Even running 
in BASIC, there is no keyboard lag as 
text and commands are entered. The 
program runs in screen mode 0,0. That 
is the fastest mode on the 2000 and is 
used where only text is being written 
to the screen. The little bit of graphics 
on the first few lines can be deleted if 
you like; mostly it was to show ways 
that simple line drawings could be done 
in BASIC with just a few lines of code. 
The actual program begins on Line 110 
where a routine to alert the user that 
the printer needs attention is located. 
Once the printer is checked, the mode 


is set to text (screen 0,0) and the 
program starts. 

Each line of code has a comment that 
explains what that line is doing, and 
in most cases, that will get the idea 
across. There is one area where special 
mention might help in lines 170 and 200. 
This relates to perhaps the most poorly 
documented part of the handbook: that 
part dealing with using assembly 
language subroutines. 

To do assembly language subrou- 
tines, you first, need two things, the 
Programmer's Reference Manual (Cat. 
No. 26-5403) and the DEBUG utility 
located ón the system disk and des- 
cribed in your DOS Handbook. The 
DATA lines 170 and 180 are very short 
assembly language programs to scroll 
the text either up (Line 170) or down 
(Line 180). Both of the functions are 
part of the BIOS Services (Basic Input/ 
Output System) offered by MS-DOS 
and the 2000, and give the programmer 
simple ways to do very complicated 
things in assembly language. 

If you can follow assembly language 
for the 80186 microprocessor, read on. 
But if assembly language gives you a 
headache then skip over this part. This 
particular BIOS command is INT 10h, 
“video display." For “scroll up," the 
manual reads: 

Entry conditions: 


АН = 06h 

AL = number of lines to scroll 

CH = row of upper left corner of 
scroll window 

CL = column of upper left corner 
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of scroll window 


DH = row of lower right corner of 
scroll window 

DL = column of lower right corner 
of scroll window 

BH = attributeto be used on blank 


lines 

The only difference for scroll down 
is AH = Ø7h. Once the values are moved 
into the proper registers, an INT 10h 
is issued and the screen will scroll up 
or down. 

This is done with OPP-CODE using 
the DEBUG utility *assembly" mode. 
Get into DEBUG, type: A1ØØ ENTER, 
the screen will show some numbers and 
you type the following: 


(See Figure 1.) 
The next step is to enter the *dump" 
mode of DEBUG, type: D1@@ ENTER. 





_ XXXX:0109 MOV BH,07. 
_ ХХХХ: 0108 ІМТ 10 ENTER 
_ ХХХХ: 0100 RETF ENTE! 








The screen will fill with numbers and 
letters. For this short program, only the 
first row is of interest. Look across till 
you find CR 90 00; that's the machine 
code for RETF and tells you where your 
program ended. 

Copy down all the numbers up 
through са 20 @@. They аге B6 01 06 
вз 00 00 BR 4F 17 CD 10 CA 00 00. 
To save space in Tandy Typer they are 
converted to decimal and become 
184,1,6, 185,0,0,186,79,23,183,7, 
205,16,202,0,0. These numbers are 
poked into memory by Line 190 and 
defined as SU and SD in Line 200. If 
you follow this guide, short machine 
language subroutines will work; if you 
follow what the handbook says, the 
2000 will lose its mind, vanish into 
never-never land and you will have to 
re-boot. 


E Heint 





24K Expansion RAM 8K Expansion RAM 
For the Model 200 For the Model 100 & 8201 
$1 50. each $275. for two $29. each $81. package of 3 


These Modules are easily user installable 
and they feature: 


• Low Power CMOS Static RAM 
• 30 Day Satisfaction Full Refund Policy 
* High Quality Sockets 


e Instructions Include 
Test Program Listing 
e One Year Warranty 


Cryptronics, Inc. 


11711 Coley River Circle, Suite 7 
Fountain Valley, CA 92708 
Phone: (714) 540-1174 


M/C, VISA, Check or Money Order 


Shipping-Add $1.50 UPS Ground 
or $4.00 2nd Day Air. 
CA Residents add 696 Sales Tax 
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This may seem like a lot of effort, 
but in BASIC the only way to shift a 
screenful of text up or down one line 
to make room for a new line, is to 
rewrite the entire screen. That’s so slow 
in BASIC that it will put anyone to sleep. 
In machine language, using BIOS, the 
screen shifts up or down before you get 
your finger off the key. Slipping in and 
out of machine language using the CALL 
statement is very easy once you get the 
code poked into memory, and just one 
look at what can be done using BIOS 
will set your imagination reeling. 

The rest of Tandy Typer is written 
in pure GW-BASIC and can be followed 
with the use of the comments on each 
line. Although Tandy Typer is straight- 
forward, I’ve used every trick I know 
to make the program run faster. I didn’t 
think that any BASIC language word 
processor could be fast enough to use, 
but on the super fast 2000 this one 
competes with most machine language 
word processors I’ve used. 

A word or two about the program 
itself is in order before anyone tries to 
use it. First of all, it is not intended 


The listing: 


о о ~ за Q P Q N) 2 


to compete with the major word 
processors on the market today. It can’t 
merge, spell, wrap-around, search, 
repaginate or most of those neat things 
that a real word processor can do. This 
is a word UNprocessor and does only 
a few things that an electric typewriter 
can do. It has one sheet of paper that 
will hold 55 lines of print. When it’s 
full you either have to print it or save 
it under some name you supply at the 
prompt. It does bring up a list of 
documents already saved, so you don’t 
have to remember too much when 
saving or recalling. On the whole, it is 
user friendly, but one could spend a lot 
of time refining Tandy Typer so that 
it is friendlier. I'll leave that to someone 
else. 

A brief description of the functions 
I included follows: 


ESC — Turns on or off the help 
prompt line 

FI(INDX) — Advances the paper 
one line (no return) 

F2(Mar ) — Moves the left margin 
to the left 


F3( gin) — 
the right 

F4(TAB ) — Set or resets the tab at 
the cursor 

F5(PRN ) — Print the document 
(nondestructive) 

F6(OLD ) — Call an old document 
out of memory 

F7(END ) — Quit and save docu- 
ment (RUN to restart) 

F8(DEL ) — Removes an entire line 

F9(INS ) — Inserts a blank line 

F10(Mar ) — Moves the right 
margin to the right 


Moves the left margin to 


F11( gin) — Moves the right margin 
to the left 

F12(<EXP) — Returns cursor to 
left margin 


That’s not much, but at least you can 
remember them after one sitting. All 
the other editing keys work normally. 
Гуе had a lot of fun creating Tandy 
Typer and have removed all the bugs 
I could find; but no doubt there are 
more lurking around the corner. Sorry 
about that, but think of the experience 
you will get finding them yourself. O 


SCREEN 3:COLOR Ø,Ø:PALETTE 1,14:PALETTE 2,11:PALETTE 3,1Ø:PALETTE 4,13 
PALETTE 4,13:PALETTE 6,9:PALETTE 7,15:PI-3. 
CIRCLE (100,240),30,3,РІ/2,3%РІ/2,4:СІБСІЕ 
CIRCLE (115,249),39,3,PI/4,3*PI/2,4:CIRCLE 
CIRCLE (129,249),29,3,PI/2,3*PI/2,4:CIRCLE 
CIRCLE (13Ø,24Ø),2Ø,7,PI1/2,3*PI/2,4:CIRCLE 
LINE (1ØØ,21Ø)-(115,21Ø),3:LINE (525,21Ø)-(54Ø,21Ø),3 
LINE (1ØØ,27Ø)-(115,27Ø),3:LINE (525,27Ø)-(54Ø,27Ø),3 
LINE (12Ø,22Ø)-(13Ø,22Ø),3:LINE (51Ø,22Ø)-(52Ø,22Ø),3 


14: CLS:AS="T*A*N*D*YT*Y*D*E*R" 
(525,240) ,30,3,3*PI/2,3*PI/4,4 
(548,242) ,39,3,3*PI/2,PI/2,4 
(528,249) ,29,3,3*PI/2,PI/2,4 
(512,249), 


20,7,3%РІ/2,РІ/2,4 


LINE (12Ø,26Ø)-(13Ø,26Ø),3:LINE (51Ø,26Ø)-(52Ø,26Ø),3 
DRAW"C7BM13Ø,22ØM2ØØ,7ØR24ØM51Ø,22ØBM51Ø,26ØL38Ø" 
DRAW"C3BM12Ø,262R4ØØM55Ø, 32ØL46ØM12Ø,262BM9Ø, 32ØD3ØR46ØU3Ø" 
LOCATE 16,3Ø:FOR I=Ø TO 8:CIRCLE (I*4Ø+16Ø,28Ø),15,3,,,.4 


PRINT MIDS$(A$,I+1,1);:SOUND 47, 


.5:NEXT I 


LOCATE 16,42:FOR I=Ø TO 8:CIRCLE (I*444-142,3992),17,3,,,.4 


PRINT MIDS(AS$,I+1Ø,1);: 


SOUND 47,.5:NEXT Т 


SOUND 7299,5:LOCATE 23,4Ø:PRINT "Any key to start. 
2200 2000 2009 2999 2000 2000 2000 2099 2000 2999 p 2222 299p 2522 2007 


' 2222 
' 29gp iu GO 
' 2999 # 

' 2222 

" 2020 
2222 


(202) 
200) 


# 
in 
# 
"т 
"2000 2200 2999 299p 2999 2999 200) 299p 2000 29209 2220 299p 2ррр 2999 2999 


Я 
122 


119 ON ERROR СОТО 13g:LPRINT СНВ$ (27) ;CHRS$ (27) ;СНВ$ (18); 


PER Å 


таныт d 
Fig + 


# 
Å пут. # # 


122 WIDTH LPRINT 8Ø:GOTO 169 


130 IF ERR=68 THEN CLS:LOCATE 12,39:COLOR 18,0 


149 PRINT "PRINTER NEEDS PAPER"; 
150 SOUND 72ØØ,2:FOR I=1 TO 5000 :NEXT I:RESUME 119 


168 ON ERROR СОТО 1632 


Rod 


'printer at turn on.. 


7 :AS=INPUTS (1) 


OFRER PRERE т 


# Å я 

+ + d # #2222 
НЕ но FFE 2222 
# # # # 200 
+ ИНН т 2000 
299g 


2222 
2222 


‘set up to catch any 
'problems with the 
.рарег or 
'off line,etc 

'this repeats till fixed 
'new error handeler 
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DATA 184,1,6,185,0,0,186,79,23,183,112,205,16,202,0,0 
DATA 184,1,7,185,Ø,Ø,186,79,23,183,7,2Ø5,16,2Ø2,Ø,Ø 
FOR Т=65280! ТО 65311!:READ A:POKE I,A:NEXT I ‘machine language code for 
SU=65289!:SD=65296! 'fast up and down scrolls 
SCREEN Ø,Ø:DIM X$(56):COLOR $,7:S=9 'go to alpha screen..set up variables 
LM=1Ø:RM=7Ø:X=1:B=Ø:KEY OFF:CLS text array 
help toggle 
left margin 
right margin 
line counter 
position counter 
B----insert mode toggle 
line scale 
help line text 
! trap CHR$'s 
U3$="INDX UU MarUgin #0 Tab UUUUU PRN Ü OLD " ‘help key line 
U3$=U3$+"U END 9 DEL 00000 INS UU MarUgin £U<EXP< " "called with ESC key 
U4$=CHR$ (9) +CHR$ (27) +СНВ$ (28) +CHR$ (29) +CHR$ (3) +СНВ$ (31) +CHR$ (127) “string 
FOR I-1 TO 12:КЕҮ I,CHR$(13Ø+I):U4$=U4$+CHR$(13Ø+I):NEXT I 'to catch F keys 
X$(g)2'"O000000000000000000U0U0UU0UUUUUDUUDUUUUUUUDUUDU" 'line to mark top of page 
X$ (Ø) =X$ (Ø) -"UUUDUUUUUUUUUUUUUUUDUDUUUUUUUUDUUUUUUUUUUUU'" and show instructions 
COLOR 7,9:CLS:COLOR 0,7 
LOCATE 23,1:PRINT X$(f);:LOCATE 23,45:PRINT "ESC key for help"; Дозе оцу ће 
LOCATE 24,1:PRINT 5РАСЕ5(80); 
uş="àüüűüäÄüüüülüüŭüüüäüüüü2üüüűüüäÄüüüü3üüüüäÄüűüüű4üüüüäüüüüs" 'position scale 
U$=U0$+"üüŭüüüäüüüü6üüüüäÄüüüü7üüüüäÄüüüüy%g" :015=09 'of 80 spaces 
MID$(US,LM,1)-CHR$(62):MIDS(US,RM,1)-CHR$(62)  'put margin markers in place 
X$(1)=STRINGS (88,32) 'fill first string with blanks 
LOCATE 25,1:COLOR 15,9:PRINT U$:COLOR 2,7 'print scale 
COLOR 15,Øø:LOCATE 25,1:PRINT USING "$$ ";X;:COLOR Ø,7:LOCATE 24,IM'prn ln # 
IF POS(Ø)>RM THEN SOUND 7200,.5 'bell if over right margin 
IF POS(Ø)>79 THEN PRINT CHR$(29); 'hold cursor on line 
IF POS(Ø)<LM THEN PRINT CHR$(28); 'hold cursor at left margin 
IF X-56 THEN X-55:GOTO 472 'hold line count at 55 max 
D=SCREEN (CSRLIN, POS(Ø)) : COLOR 15,9:PRINT CHR$(D);CHR$(29);:COLOR Ø,7'cursor 
TS=INPUTS (1) :A=ASC(T$) :P=POS (Ø) "key board input 
ТЕ A>31 AND А<127 AND B=Ø THEN MIDS(X$(X),P,1)=T$:GOTO 559'catch normal key 
GOTO 560 ‘only а go-around 
PRINT T$;:SOUND 47,.5:GOTO 472 "finish normal catch, insert in text 
IF A>31 AND A<127 AND B=1 THEN 77Ø "catch normal key in insert mode 
IF A=8 THEN 83Ø "catch backspace key 
ТЕ A=13 THEN PRINT CHR$(D);:GOTO 852 "catch enter key 
IF A=18 THEN 73Ø ‘catch insert key 
LOCATE 25,1:COLOR 15,Ø:PRINT USING "## ";X;:B-g:COLOR Ø,7:LOCATE 24,P'prn # 
F=INSTR(1,U4$,T$) : PRINT CHRS$(D)+CHR$(29);  'check F key string for possible 
TE F=Ø THEN 479 "go back to input line if not a valid F-key 
TAB ESC <-- --> UP DN DEL Fl F2 F3 ‘Subroutine list 
он F GOTO 116Ø,99Ø,69Ø,69Ø,91Ø,94Ø,8Øø,131Ø,1Ø6Ø,1ø7ø ‘subroutine line #'5 
F4 B5 F6 Е7 F8 F9 ҮЧЕ НЕ Илона 'rest of F-keys 
i F-1Ø GOTO 111Ø,15ØØ,134Ø,118Ø,152Ø,157Ø,1Ø4Ø,1Ø5Ø,71Ø 'more line #'5 
GOTO 52Ø "апу key not referenced is ignored 
-CURSOR CONTROL LEFT AND RIGHT 
sinam T$;:GOTO 470 
EXPRESS RETURN TO BEGINNING OF LINE 
LOGATE 24,LM:GOTO 469 ‘position at left margin 
CHARACTER INSERT TOGGLE----B-1 IF INSERT MODE 
i B= THEN B=1: LOCATE 25,1:PRINT "INS";:LOCATE 24,P:GOTO 472 
IF Веј THEN B=Ø:GOTO 970 
CHARACTER INSERT MODE 
LOCATE 25,1:COLOR 15,%:PRINT USING "$$ ";X;:B=@:COLOR Ø,7:LOCATE 24,P'rst В 
X$ (X) =MID$ (X$ (X) ,1, P-1)+T$+MIDS(X$(X) ,P,79-P) 'split line and insert T$ 
PRINT MIDS(X$(X),P,8@-P);:LOCATE 24,P+1:GOTO 479 'reprent line 
CHARACTER DELETE 


X$ (X) =MIDS(X$(X) , 1, P-1) +MIDS(X$(X) ,P+1,79-P)+" " "split line and delete 
PRINT MID$S (X$(X),P,8Ø-P) ;: LOCATE 24,P:GOTO 479 ‘reprint line 
CHARACTER BACKSPACE 
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'838 
840 
859 
869 
870 
882 
892 
922 
919 
920: 
1938 
949. 
959 
968 
1979 
980 
999 
1222 
1212 


1025. 


1239 
1040 
111052 
1260 


1272 
1282 


1290 
1122 
1114 
1122 
1137 
114g 
1159 
1169 
117g 
1189 
1192 


1222 


1212 


111229 
1239 


11249 
125) 
1266 
51278 
1289 
11290 
130) 
1310 
1315 
1317 
1322 
1322 
1339 


111349: 


11250 
1367 


HESTA: 


1382 
1397 
1429 
1412 
1420 
1432 
1440 
1459 


"AS DEN ИН ДИ Hel dd P, А и, dnd BA at! НН 
LOCATE 24, P-1: PRINT MIDS(X$ (X) P-L 12р); ЕТОСАТЕ 24,P-1:GOTO 470 "reprint! 








t=== === ENTER КЕҮ--------------- MURDER 
ТЕ X=55 ТНЕМ 470 i T HII по ‘don't! pass line 55'' 
IF X$(X-1)«»"" THEN 899 Hir НЕНЕН "ig not last line go around 
X=X+ 1 PRINT: XS (X) "STRINGS (ад, 32): бото 469 пр new line, fill with spaces 
=X+1: PRINT Х6(Х);:60Т0 460) ЕНЕН He? Wo тате just print it | 
а и “SCROLL УР------------------- -----------------------------.. | 
ТЕ XS (X+1) =" OR X>54 THEN 479: ELSE. CALL SU:XSXtl "scroll if not last dne! 
LOCATE 24,1:PRINT X$(X);:G0TO 979 | à" "print. bottom: iine. after scroll | 
о SCROLL. DON me mm tm aa ------- --------- ИП 


ТЕ Хеј THEN 479 НИ (if first line. go back | 
LE Х<24 THEN CALL SD:X-X-1:GO0TO 972 БЕНЕН А HE at less than 24. lines, just soroll ii 
CALL SD: LOCATE 1,1: PRINT XS$(X-24) :X=X=1 ester above, Scroll and print'top 


COLOR 15,2: LOCATE 28,I:PRINT/ USING "Еф ";XI!:COLOR 0,7:LOCATE 24, P:GOTO 479 


НЕР LINE PRENTUUNPRINTALU UNT de RA PRI miin en | 
IF S=Ø THEN S-1:GOTO 1919 ELSE 5=Ø: LOCATE 25,1: | COLOR 15 (p set or unset help | 
PRINT US$! :COLOR 9,7:GOTO 1929. | ИШИНИН вд ти scale. 
LOCATE 25,1:COLOR 15,2: PRINT. bd ‘COLOR ^ ШШ ШІ ІШІ HH Hi ШИН ipia 


LOCATE 24, P4 GOTO 472: 


IF IM<RM-5 THEN RMERM-1: GOTO: 1989 БЕ сото HM 


ІҒ ВМ<79 THEN RMSRM+1:GOTO 1080 ELSE GOTO 470 ' | Rap. Ha margin de 








IF ІМ>1 THEN LM-LM-1:GOTO 1289 ELSE GOTO 479 | keep left margin on page 


ТЕ LM<RM THEN PRINT CHR$(29); :LMSLMTISGOTO: 1282 ELSE GOTO 479. “don't cross ' 
U$=VIS:MIDS(US,LM, 1)=CHR$(62) :MIDS(US$,RM, 1) =CHRS (6Ø) : :Seg put. into scale |! 
LOCATE) 25,1: COLOR 15,8 PRINT US:COLOR Ø/7:LOCATE 24,P: /GOTO 47) i 'reprint 
А pas CONTROL, SET кан NOT PP OR: ЖӘНЕ ТЕ. БЕТЕ (P+ Aye tn 
ТЕ P=LM THEN 4786 i HHI "по Жар at margin | 
ТЕ MIDS$(U$,/P,1)=CHR$(24) THEN. llap. HHUH ҮН tab this spot, take it out. 

MIDS$(US;P; LJ SCHRS (24): GOTO: 1999 HHH [ан tab. here, put one; ani 












MIDS (USP, 1) SMIDS(ULS,P, indi GOTO 1090 ИЕ ЦИН тоу its gone 
! и вв ҢА; — — — С -------- —— --------.... ft eeinetan ntis 
|ASINSTR(P+1,U$,CHR$ (24) ) IF A=Ø THEN LOCATE 24,P:GOTO 479 "find next tab | 
LOCATE 24)А: GOTO 470 HHIHI "if none: Bee else go there ' 
ЕВА DOCUMENT-----(F- Us aan EUH RM AR 
FOR ISl TO 19:CALL SU:NEXT I ШЕНИН di 'seroll up 19 lines to 
LOCATE 16, 1:FILES их. зө НЕНА. IHH 'elear place for document: Big 
LOCATE 25,1:COLOR 15, PRINT: SPACES (SØ)! | i ствах space to: print 
LOCATE 25, LEDINE INPUTS S ; (What. name. for file? uri (AR. ШИН Ж. new, file nanei 
ТЕ AS<SUN THEN 1259: ИШНИ HH | HRN о name! 
COLOR Ø T CES LOCATE 13,39: PRINT “ (600D-BY. и HHH HH TRU dt save | 
OPEN НЕМ ЈАН, DOC"; BØ: Yel НЕНІҢ [ШИН i ҮН i open. Or create file ' 
ЕТЕШӘ Т, BØ А8 DOCS: | НЕНА 'inentify. buffer | 
ТЕ ХУ) ин ОВ. У=56 /THEN LSET. | Docs=cHRS (146). PUT. 3 у: CLOSE. ‘Ls GOTO 1298. T 
LSET DOCSSXS(Y)*PUT l,Y:YSY-1:GOTO 1279 НИНИН put it on ‘disk 
COLOR By TCLS LOCATE 13, IØ: PRINT” "IAS" IS SAVED. !GOOD-BY: We SEND епа HH 
------ О: о 
ТЕ X=55 THEN 470 ннн ШШ ji HHH пао в: pass line 55 0 
IF X$(X-1)«»!" THEN 1329 | FHH RE not last line go around ' 
X=X+12: PRINT: X$ (X) STRINGS (ви, 32): Goro 1322 паем line, f111. with spaces! 
XSX*1:PRINT X$(X):; | "old line just print ic 
LOCATE! 251: COLOR 15:0: PRINT USING НЕЗРННДЕ : COLOR Ø;, 74 LOCATE 24; P:GOTO 478 
EEG Ht CALL: ‘SAVED DOCUMENT: FROM 222 
FOR I-l TO IAS CALL SU:INEXT' HI Ui IH | Бекор l9 lines to 
LOCATE l6,liFILES "журос": | clear place for document. list 
LOCATE 25, 1:COLOR 15) 9: PRINT ЖИЕ НЕ ‘clear Line to print mesage ' 
LOCATE:/25,1:LINE INPUT: т name? f AS ИНИ 'get name: of file: 
ТЕ ASS>"" THEN 1439 ^ | WHHRHIHE HEU "hull entry. returns to typer 
COLOR 2,7:X2-19: ӨШИ HIE УНА АНА ШИИНИН о аи back down 
CALL SDIIF Х1<14 THEN: GOTO 1429 THEN ШШШ "апа replace text if o 
LOCATE l,L1:PRINT X$(xi- 14); :X1-X1- is Н H "needed 
X25X2-1; ТЕ X2=Ø THEN 450 ELSE 1499 Hi "this. ‘only happens tod null entry: 
COLOR 8,7:0PEN "R',1,AS4",DOC", 89; FIELD 1, 82. AS DOCS: Kel) "identify buffer | 
FOR 19170552: XS (I) mW NEXT ШИН ШИН ноте text array 


GET 1,Х:ІҒ ASC(DOCS)-126 OR Х-56 THEN, CLOSE 1; хх: 16019 4520 tis åt ШШ 
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The Ultimate Expansion for the Model 1000! 
TanPak ™ by Hard Drive Specialist 
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ТапРак ™ i 

The TanPak ™ expansion board has been designed 
to allow expansion beyond the scope of the standard 
Model 1000. Seven of the most needed functions/ 
features have been combined into one package using 
only опе expansion slot. Your remaining spaces are 
left free for future expansion needs. 


Seven Function/Features on One Board 


512K Memory Expansion 
Socketed and expandable to 512K. This is done by 
two banks of memory using either two 64K increments 
“ (128K), or 256K increments (256K or 512K). This 
allows a total of 640K in the Tandy 1000. 


Serial Port 

Using the same configuration as the Model 1000 
port you are assured of complete compatibility as well 
as being able to configure it as COM1 ог COM2. 


Clock-Calendar 
Quartz-controlled for a high degree of accuracy, 
featuring a battery backup. 


DMA 

The DMA (Direct Memory Access) is used on the 
Моде! 1000’s first memory card. It increases memory 
speed and is a must for hard drive operation. 


Printer Spooler 

Use part of your TanPak ™ memory as a printer 
buffer. Choose the amount of buffer space you need 
and stop waiting on your printer. 




























Ordering Information 


Use our W.A T.S. line to place your order via Visa, MasterCard, or Wire 
Transfer. Or mail your payment directly to us. Any non-certified funds will be 
held until proper clearance is made. COD orders are accepted as well as 
purchase orders from government agencies. UPS ground is our standard 
ans of shipping unless otherwise specified. Shipping costs are available 
upon request. Tandy and Radio Shack are trademarks of the Tandy 
Corporation. TanPak, and TanTel are trademarks of Hard Drive Specialist, 

а division of Compukit Corporation. 


TTL 


Future Options 





Features Include: 
Gold Edge Cards 
Pre-Tested and Burned In 
Full Documentation 
Supporting Software 
One Year Warranty 
Expandable to 512K 






Memory Disk 

Use part of your TanPak ™ memory as a RAM drive. 
With a solid state drive you can store, retrieve, and 
sort data quickly and easily. 


Expansion System 
The TanPak ™ was designed with an expansion port 
that will allow upgrading with additional features when 
they become available. Some of the possible features 
are: a second parallel port, a second serial port, 
mouse, hard drive port, bubble memory, A/D, and D/A 
as well as many others. 
ЧЕПРаК ӨК», u осы $349. 
Call for pricing on memory modules. 


TanPak ™ Secondary 

If you already have a Model 1000 memory board 
and do not wish to replace it, the TanPak ™ Secondary 
is for you. It features Memory up to 256K, 
Clock/Calendar, Serial Port, Printer Spooler, and 
Printer Buffer. 
TanPak ™ Secondary OK ....... aa t Susa uq w $249. 


TanTel ™ 

Internal 300/1200 baud Modem for the Tandy 1000. 
Supported by the DeskMate software package. 
Тае Бо Re ER е о oe ЛЫЧ 5249. 


Hard Drive Specialist 
16208 Hickory Knoll 

Houston, Texas 77059 

1-713-480-6000 

Order Line 

1-800-231-6671 


Shop and compare. Hard Drive Specialist has been 
building hard drive systems for years and have sold thou- 
sands of subsystems to satisfied Radio Shack/Tandy cus- 
tomers. We use the latest state-of-the-art disk drives and 
controllers. Our drives all use buffered seek logic and plat- 
ed media to result in almost one-fourth the average access 
times found on our competitors drives. Plated media 
results in longer platter life and high resistance to head 
crashes not found on coated media drives. We utilize high 
quality construction throughout including heavy duty 
power supplies and gold edge card connectors. Internal 
drive systems include an interface card and a half-height 
herd drive that replaces the top disk drive in both size and 
power consumption. External units include an interface 
card, case, power supply and hard drive unit. All units re- 
quire a memory board with DMA such as the TanPak™ 
multifunction card, or a Tandy Board, Part #25-1004. 


Ordering Information 


Use our WATS line to place your order via Visa, MasterCard, or Wire Transfer. Or, mail your 
payment directly to us. Any non-certified funds will be held until proper clearance is made. COD 
orders are accepted as well as purchase orders from government agencies, UPS ground is our 
standard means of shipping unless otherwise specified. Shipping costs are available upon re- 
quest. Tandy and Radio Shack are trademarks of the Tandy. Corporation. TanPak, is a trademark 
of Hard Drive Specialist, a division of Compukit Corporation. 





nae Disk System Features: 


All sizes rated after formatting. 
One secondary drive may be added. 


Error checking and correcting controller. 


Software drivers included. 


Buffered seek drives for improved access time. 


Built in power up diagnostics. 
Plated media for long disk life. 
Gold connectors used. throughout. 
1 year warranty. 

Boots directly from Hard Drive. 
Uses Tandy 1000 MS DOS. 


Megabyte Internal........... 
Megabyte Internal........ 
Megabyte Internal......... 
Megabyte External............ 


Hard Drive Specialist 


16208 Hickory Knoll 
Houston, Texas 77059 
1-713-480-6000 


Order Line 
1-800-231-6671 


‚....$ 549. 
DELEN 8*5 TAB. 
.......91349. 
... 5 699. 
Megabyte Ежегпа!............... 
Megabyte External.............. ; 
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Protect Your Valuable 
PCM Collection With... 


DISTINCTIVE AND DURABLE 
PCM BINDERS 


YES. Please send me 


hese distinctive brown binders not only ensure that your 

magazines stay in mint condition, but they showcase your 
collection as well. Each binder is clearly embossed with the 
magazine's name in gold lettering on both the front and 
the spine. They're a handsome addition to any decor. 


Each of these handsome binders holds 12 issues of PCM 
and is only $7.50 (please add $2.50 for shipping and handling 
for each binder ordered). 


SPECIAL DISCOUNTS ON PAST ISSUES WITH THIS OFFER 


If you place an order for six or more back issues of PCM 
at the same time you order your binder(s), you are entitled 
to $1 off each back issue of the magazine, which normally 
sell for the single issue cover price. For an index to our 
back issues, and an order form, please refer to our "Back 
Issue Information" page (check Table of Contents under 
departmental listings). 


sets of binders at $7.50 each (plus $2.50 shipping and handling for each binder ordered). 


If your order is to be sent via U.S. Mail to a post office box or to another country, please add $2. Kentucky residents 
add 5 percent sales tax. 
I also want to take advantage of the special savings of $1 off the single issue cover price for back issues with the 
purchase of a binder. (An order form from a recent issue indicating the back issues you wish to receive should accompany 
this order.) 


Name 
Address 


City 


My check in the amount of 


Charge to: 


D VISA О MasterCard OD American Express 


Account Number 


Signature 


МАР 


is enclosed. (In order to hold down costs, we do not bill.) 


Expiration Date 


Mail to: Falsoft, Inc., The Falsoft Building, 9529 U.S. Highway 42, P.O. Box 385, Prospect, KY 40059. PCM 


PCM 
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dBASE Tutor 








1000, 1200, 2000 





Adding Reports and Labels 
to our Mailing List Program 


ur very first dBASE П program- 
(О) project is coming along 

quite nicely. Last month, we 
began the project by defining the 
problem and designing a system to get 
the job done. We then set up the 
database file and coded the first section 
of the system — the program for 
entering and editing names and 
addresses. 

Today, we will add the other two 
major portions of the mailing list 
system: a report program and a pro- 
gram to print labels. 

For those of you who may have 
missed the first part of this series, the 
structure and indexes for the database 
file appear in Figure 1; Figure 2 is the 
screen format file and Figure 3 is the 
add/edit program. 


Report Program 

Fortunately, dBASE 11% REPORT 
FORMAT command provides a simple 
method for producing reports (see the 
October 784 “dBASE Tutor”): 
REPORT FORMAT can handle most 
simple reports, such as the one we 
propose to do, but it does have its 
limitations. For instance, it cannot 
produce reports with more than one line 
per record, and it does not have the 
ability to automatically look up records 
in more than one indexed database 
(dBASE III does have the latter ca- 


pability). However, it will work for our 
application, 

If you were designing a report to be 
used by yourself or another person who 
is familiar with dBASE commands, 
your job would be finished after you 
design the report with REPORT FORMAT. 
Then, you could just open the database 
and index files with USE, turn the 
printer on with SET PRINT ON and print 
the report with REPORT FORMAT. Our 
application, however, is intended to be 
menu-driven and usable by persons 
unfamiliar with dBASE commands. 
Therefore, we will need to design a 
program to do the things that we would 
normally do from the dBASE dot 
prompt and add a touch of user- 
friendliness to the procedure. 


In addition to turning on the printer 
and printing the report, the report 
program should allow the user to print 
the list in either name or 71Р code 
order. It should also give the user the 
opportunity to abort the program 
before printing begins in case he or she 
accidentally selected it from the menu. 

The first step is to design the report 
format with, logically enough, the 
REPORT FORMAT command. We'll call 
the report format MAILLIST.FRM. The 
format appears in Figure 4. For more 
information on creating report formats, 
see the October '84 “dBASE Tutor.” 


By Danny Humphress 


Now on to the program! We'll call 
it MAILLIST.PRG. The listing appears 
in Figure 5. Remember, don't type in 
the line reference numbers. 


MAILLIST.PRG Line by Line 

The first six lines of MAILLIST.PRG, 
like those in last month's program, set 
up the operating parameters for 
dBASE. 

The eighth line displays a message 
on the screen at row 10, column 20, 
telling the user what the program is 
about to do. 

Lines nine through 15 ask the user 
if they want to continue. The DO WHILE 
loop in Line 10 causes the question to 
be repeated until the person answers 
with a “У” or an ‘№; that is, the loop 
will run as long as ANSWER< > v“ and 
ANSWER< > “МУ. Line nine: initializes 
the ANSWER variable as a single blank. 


Lines 16 and 17 simply clear the two 
previous messages from the screen. 

If the user answers ‘N’, the IF at lines 
I9 and 20 will catch it and return control 
to the dBASE dot prompt. If this 
program had been run from another 
program, such as a menu, control would 
return to that program. 

Lines 23 through 30 are very similar 
to the above “yes/no” loop. This loop 
asks the user about how he or she wants 
the list sorted. Depending upon how 
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THE TANDY 200 AND MODEL 
OFFER MUCH MORE THAN J 


Our accessories make them the only со 








When we introduced 
the Advanced Technol- 
ogy Model 100, it 

quickly be- 


| came the 

most highly- 
== 777 acclaimed 

lap-size com- 
puter ever. A battery 
or AC-powered com- 
< with five built-in programs and 
a telephone modem that fits into a 
briefcase. Our Tandy 200 took this 
great idea a few steps further—a 
big easy-to-read 16-line by 40- 
character “pop-up” display, Multi- 
plan spreadsheet software, plus an 
alarm and calculator. 


But the story doesn’t end there— 
we back both machines with exten- 
sive accessories that help make 
them powerful desktop tools. 


New Low Price! 
Disk/Video Interface 


Turn your Tandy 200 or Model 
100 into a versatile disk-based 
home or office system with a Disk/ 
Video Interface—now only $499 
(26-3806, was $799.00 in Cat. RSC- 
14). It features a built-in 184K floppy 
disk drive, and a 40-character by 
25-line display with your TV or an 
80 x 25 display with a standard 
video monitor. You can even add a 
second internal disk drive. 


Thermal Ribbon Printer 
Use it anywhere! The TRP-100 
(26-1275, $299.95) works on batter- 
ies or AC power (adapter included), 
and prints on plain or thermal pa- 
per. The TRP-100 quietly prints 50 
characters per second. Produces 

bit-image graphics, too. 


Versatile Bar Code Reader 

Our Bar Code Reader (26-1183, 
$99.95) is an optical scanning de- 
vice that’s ideal for inventory con- 
trol, billing and couponing. Software 
drivers, callable from BASIC, allow 
you to read Universal Product 
Code, 3 of 9, Plessey and other bar 
code formats. 





100 PORTABLE COMPUTERS 





IST COMPACT PORTABILITY 


Communications Power 

WE E One of the 
most exciting 
features of 
the Tandy 
200 and 
Model 100 is 
the built-in 
modem that 
lets you com- 
municate 
with other computers over the 
phone line. Our Direct-Connect Mo- 
dem Cable comes with one free 
hour on both the CompuServe In- 
formation Network and Dow Jones 
News/Retrieval service. 





Get news, weather and sports, 
business and stock market informa- 
tion and more. Information networks 
open up a whole new world of appli- 
cations power. 


And when you're on the road, 
you can bypass direct connection 
with our Acoustic Coupler. It's a 
great way to keep in touch with 
your home office. And we even of- 
fer a briefcase and padded carrying 
case to make portability all it’s sup- 
posed to be. 


Come in Today! 

Stop by your local Radio Shack 
Computer Center and see both the 
Advanced Technology 24K Model 


puter you'll need—in or out of the office. 


100 (26-3802, $599) and 24K Tandy 
200 (26-3860, $999), as well as our 
complete line of accessories and 
software. You'll find everything you 
need for professional, portable com- 
puting power—for your desk or on 
the road. 


Radio Shaek 


The Technology Store" 


A DIVISION OF TANDY CORPORATION 


Prices apply at Radio Shack Computer Centers 
and participating stores and dealers. Multiplan/ 
TM Microsoft Corp. CompuServe/Registered TM 
CompuServe, Inc. Dow Jones News/Retrieval/ 
Registered TM Dow Jones & Co., Inc. 





the user answers, ‘Z’ for ZIP, or ‘N’ 
for name, the proper index will be 
selected. Again, the loop will continue 
until the person answers with a ‘Z’ or 
ап ‘N’. 

Lines 32 through 36 contain another 
IF routine. This routine, however, uses 
a new dBASE command — ELSE. In 
this case, if ORDER="N", then the MAIL 
file is opened with the MAILNAME 
index, e/se the MAIL file is opened with 
the MAILZIP index. The statements 
following the ELSE in an IF routine will 
be executed if the condition in the IF 
line is not true. 

Line 38 has our program tell the user 
that the printing has begun. 

Line 39 turns the screen display off 
so that the report will not appear on 
the screen. 

Line 40 is our old friend, REPORT 
FORM. This time we’ve added TO PRINT 
at the end to direct the output to the 
printer. TO PRINT is a special clause- 
supported REPORT FORM that will 
automatically route the output to the 
printer. 

Line 41 turns screen display back on 

Line 48 closes the file. 

Finally, Line 44 returns control to 
the dBASE prompt or the parent 
program. 


Я! 
‘a 
4 
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г 
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Now might be a good time to mention 
about how some program lines are 
indented. While these indentations are 
not necessary to the operation of the 
program, they make the listing much 
easier to read and understand. It is 
customary to indent the statements 
within a DO/WHILE loop and statements 
within an IF/ELSE^ENDIF routine. 


MAILLABL.PRG 

With the report program behind us, 
let's move on to the label printer. 
dBASE II does not have a built-in 
command for printing labels as it does 
for printing reports. However, because 
of the programmability of dBASE, we 
can write our own program to do the 
job. 


The program, called MAILLABL .PRG, 
wil use standard “one-up” mailing 
labels — only one label across. Most 
mailing labels are spaced six lines apart, 
so we'll make the program conform to 
that standard. Since it is difficult to get 
the labels aligned in the printer the first 
time, we'll allow the user to print as 
many sample labels as required to gain 
proper alignment. 

The listing for MAILLABL.PRG 
appears in Figure 6. 


The first 37 lines of MAILLABL .PRG, 
except for the text in Line 8, are exactly 
like the corresponding lines in MAIL 
LIST.PRG. They set up dBASE oper- 
ating conditions, tell the user what's 
going on, and give the user a chance 
to get out of the program. 

Lines 38 through 60 are a loop that 
continues until the person answers *N' 
(no) for printing sample labels. Within 
the loop, at lines 44 through 55, is an 
IF/ENDIF routine that will print a 
sample label if the user answered ‘Y’ 
(yes). 

Notice how the lines within this IF^ 
END are indented another three spaces. 
This, again, is done for clarity. 

Lines 45 and 46 turn the printer on 
and the screen display off so the sample 
label goes to the printer and not the 
screen. 

Lines 47 through 49 print three rows 
of X's on the printer to show where 
the body of the label will go. 

Lines 50 through 52 print blank lines 
to move the print head down to the 
next label. The three lines of X's and 
these three blank lines total six — the 
total number of lines on a label. 

When the user drops out of the 
sample label loop by answering 'N', 
dBASE moves on to the 59th line where 


DON’T MISS 


THE LATEST ADVANCE 
IN MODEL 100/TANDY 200 


X-TEL 


SOFTWARE 


by the creators of 
TELECCMMUTER™ 


Muse TEXT while online in TELCOM: Download letters 
and upload a reply in one terminal session 


li Exchange .CO, .BA and .DO files with other computers, 
bulletin boards, and information utilities 


№ Standard XMODEM error-checking protocol 

Mist and Kill Files online in TELCOM 

Ш Compatible with Telecommuter and other desktop 
communications software supporting XMODEM 


Specify Radio Shack Model 100 or Tandy 200 computer 
Price: $50 on MS-DOS diskette or cassette 


MasterCard and Visa accepted. 
Please call or write for further information. 


SÜ SIMPLE 


Е: 
Sigea Systems, Inc. 
19 Pelham Road 
Weston, MA 02193 
(617) 647-1099 
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it displays a “printing” message, turns 
the printer on and turns the display off. 

The loop in lines 63 through 71 
actually does the printing of the labels. 
It will continue to loop through, 
printing labels and skipping to the next 
record, until the EOF ( ) function is true. 
EOF( ) is a function that is internally 


maintained by dBASE. EOF( ) is true 
when you have gone beyond the end 
of a file. DO WHILE .NOT. ЕОЕ( ), 
therefore, would loop while you have 
not gone beyond the end of the file. 
All that remains to do now is to turn 
the printer off, console on, close the 
file and return to dBASE dot prompt. 
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Next month we wrap up our mailing 
list system by putting the three pro- 
grams together into one menu-driven 
system. Until then, you might want to 
experiment a bit with the programs 
we've done so far. Try changing them 
around by adding fields, printing on 
different size labels, etc. Dive in! О 
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store ' ' to ANSWER | 

erase j НИНИ, 

e 22,25 say ‘Select: (Ајаа [E]dit e[X]it JT 
get ANSWER picture '!' 

read 

clear gets 

e 29,9 


if ANSWER="A" 
set format to MAILEDIT 
append 
| веб format to 
гепаіғ 


if ANSWER="E" 
store ' (30 spaces) ' to SEARCH 
8 20,19 say "Enter name: ' get SEARCH 
read | f 
clear gets УИ, 
store trim(SEARCH) to SEARCH 
find &SEARCH 
if #=9 
@ 21,18 say 'Name not found. Press any key to continue.’ 
Set console off 


wait 
set console on 
7; loop 
endif ; 
set format to MAILEDIT 
edit + 
set format to 
endif 
lf ANSWER="X" 
use 
return 
endif 
enddo 
Figure 4: 


ENTER. OPTIONS, M=LEFT MARGIN, L=LINES/ PAGE, W=PAGE WIDTH M-10,4-132 
‘PAGE HEADING? (Y/N) У 

ENTER PAGE HEADING: Mailing List Report 

DOUBLE SPACE REPORT? (Y/N) N 

ARE TOTALS’ REQUIRED? (Y/N).N 


COL WIDTH;CONTENTS . 
001 38 „МАМЕ: 
ENTER HEADING: <Name 
002: JØS STREET 
ENTER HEADING: <Street 
003 15;CITY 
ENTER HEADING: <City |” 
004 ZN STATE 
ENTER HEADING: «5t 
SRT Ұға 10 
«ENTER HEADING: «Z1P Code: 
006 ІЗ;РНОМЕ; 


ENTER HEADING: «Telephone 
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Store and retrieve your 100 graphics with ML speed! 


screen to Me 










Ч палатада yy ЛЫ ^ 
. УА 








САР5 


CAPS SHIFT Z Х 6 V B en Ма 2 








"'sanenbd “ · 


Radio Јһаек 


TAS-80 


MODEL 100 
PORTABLE 
COMPUTER 





s is usual in computer program- 
An the justification for using 
machine language is speed. 
SMS (Screen to Memory to Screen) is 
a machine language routine for the 
Model 100 which can be called by a 
BASIC program to save a graphics screen 
to memory and later restore the screen, 
and perform both operations with 
gratifying rapidity. Absolutely anything 
which is displayed on the screen can 
be saved and restored using SMS. In 
its present version, it operates on the 
entire screen with no option to select 
a smaller portion. Two thousand bytes 
of RAM are required to store each 
screen, but you may have as many 
screens as will fit in available memory. 
In this article, BASIC programs are 
given which: 
• create and save the object code file. 
• illustrate the use of the routine to 
save multiple screens. 
• restore the screens using SMS. 
® restore the same screens using the 
PSET command to demonstrate 
the relative speed of the machine 
language routine. 


In addition, the Assembler source is 
provided and its workings discussed for 
those who would like to enhance the 
program or merely relocate it. 


Loading the Object Code 

Listing 1 is a BASIC program, titled 
SMSPOK, which will poke the machine 
language program into high memory. 

Before running SMSPOK, take the 
precaution of saving it and all other files 
to cassette or disk. Anytime you run 
a machine language program the first 





(John Teague is a systems analyst who 
has programmed in a variety of high- 
and low-level languages during his 13 
years in data processing. He maintains 
a complex love/hate relationship with 
the BASIC language.) 


100 


time, you risk losing the file in memory 
because an error in keying a single 
instruction can totally change: the 
operation of the program. But this is 
no crisis if the files are backed up. 
Nevertheless, SMSPOK performs а check- 
sum on the data statements and will 
give an error message if the checksum 
is incorrect. In this case, the program 
is aborted even before any poking takes 
place. If you get the message that the 
checksum is incorrect, check the data 
statements and the value that is being 
tested for. 

SMSPOK also gives the option to save 
the object file to memory or cassette. 
Then the file can be loaded with the 
LOADM “SMS” or CLOADM “SMS” com- 
mands. However, memory above 62855 
must first be reserved with the CLEAR 
command. 


Using the Routine 

Once the machine language routine 
is in memory, the BASIC statement to 
save the screen to memory is 


CALL 62855, 1, ma 


where ma is the starting address of 2000 
bytes of storage which you have 
reserved with the BASIC CLEAR $tate- 
ment. To restore the screen, the entry 
is: 


CALL 62855,0,ma 


The only difference between the two 
CALLs is in the second operand, the A- 
Register, which is zero to write the 
information from memory to the LCD 
screen and non-zero to read the infor- 
mation from the screen and store it in 
memory. Listings 2 and 3 illustrate the 
process. 

Listing 2 creates and saves two 
different screens of information. After 
Listing 1 has been successfully run, 
simply type and run Listing 2 to save 
the screens. 

Listing 3 alternately displays the two 
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bit patterns. Actually, 1,920 bytes аге 
required. If you multiply 1,920 by 8 bits 
per byte, you obtain 15,360 bits. 
Similarly, if you consider that there are 
240 pixels horizontally and 64 pixels 
vertically that can be addressed with the 
PSET BASIC command and multiply 240 
by 64, you again obtain 15,360. Divide 
15,360 by 8 (bits per byte) and you 
obtain 1,920 bytes. This 1,920 bytes of 
LCD RAM is not part of the Model 
100’s 64K memory space at all but is 
part of the LCD device. It cannot be 
addressed with PEEK or POKE com- 
mands, but it can be accessed indirectly 
through INP and OUT commands and 
their machine language counterparts. In 
order to do this, it helps to know how 
this LCD RAM is organized with 
respect to the pixels on the screen. 

The Screen is divided into 10 drivers, 
numbered from zero to nine (see Figure 
1). Each driver is further divided into 
four banks, numbered from zero to 
three. Each bank contains 50 bytes and 
each byte contains eight bits. Each of 
the bits corresponds to one pixel. If the 


Figure 1. Organization Of LCD RAM 
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DRIVERS 
4 AND 9 
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ALL OTHERS 
HAVE 50 


50 PIXELS 





screens that have been saved. Run the 
program and then press any key to see 
the next screen. CTRL C must be used 
to exit this program. 

Listing 4 performs the same function 
as Listing 3, except that it uses the BASIC 
PSET and PRESET commands instead 
of SMS. Listing 2 must have been run 
first. If you run Listing 4, be prepared 
to be patient. 

As written, SMS must be loaded at 
address 62855. If you have an assembler 
for the Model 100, you can use the 


source code in Listing 5 to relocate the 
routine or otherwise modify it. 


LCD RAM 

The actual bit patterns which appear 
on the LCD are not normally stored 
within the Model 100's 32K of RAM. 
Yes, there is an area of 320 bytes that 
contains a record of the text characters 
on the screen and, yes, the PEEK 
command will identify the text char- 
acters. However, 320 bytes is not 
sufficient space to store all the possible 


bit is one, the pixel is on. If the bit 
is zero, the pixel is off. For Drivers 4 
and 9, only 40 bytes per bank are 
“connected” to pixels. This means that, 
in a sense, we are wasting 80 bytes of 
memory when we reserve 2,000 bytes, 
but it simplifies the logic somewhat. It 
is left as an exercise to the reader to 
make this memory saving enhancement. 


How SMS Works 
SMS uses several of the Model 100 
ROM routines. The heart of the SMS 











34)" <C>savem"+CHR$ (34) "SMS"+CHR$(34)" 
or <Q>uit? 


BOM |1 
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280 А$=ТМРОТ$ (1) 
š 290 A-INSTR ("SsCcQq",A$) 
: 300 ON A GOTO 51Ø,51Ø,52Ø,52Ø,53Ø,53Ø 

518 SAVEM "sms",62855,62959,62855 
Ver СААИ empremta шір И "sms", 62855,62959,62855 
110 FOR 1=62855 TO 62959 чы шн қина 
115 READ X 530 END 
139 XT =XT+X B 
a NEXT 62855 DATA 34, 149, 245, 59, 148 
170 PRINT "checksum="XT 62862 DATA 245, 205, 92, 118, 195 
175 XC=13164 62865 DATA 187, 245, В, Ø, 2 
176 IF XT-XCTHEN 299 Н 62878 DATA Ø, Ø, Ø, 42, 151 
180 PRINT"checksum ="XT;" Should Бе "ухе 62875 РАТА 245, 205, 59, 117, 17 
199 LIST 189-199 62880 DATA 50, Ø, 42, 149, 245 
200 ВЕ5ТОВЕ 62885 DATA 58, 148, 245, 246, f 
219 FOR 1=62855 TO 62959 | 62892 DATA 285, 247, 116, 295, 92 
215 READ X 62895 DATA 118, њи iue 245, 17. 
£28. PORE: TIE 629ØØ DATA 50, Ø, 34, 149 
2 а аи |. 62985 РАТА 245, ur 67, 118 
279 PRINT"<S>avem "+CHR$ (34) +"SMS"+CHRS ( ШШШ RE 937 БЕНИ 
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Complete Accounting Software 





Including Payroll for $15 per module 


101 Profitable Reasons To Buy MCBS 


Accounting Software! 


General Features 


1) Menu Driven System 

2) Integrated or Stand Alone 

3) Simplified Installation 

4) Complete Audit Trails 

5) Data Files can be accessed by Lotus, 
dBase, etc.* 

6) Manuals on diskettes, print them on 

your printer. 

Modules can be purchased 

separately. 

Accounts and transactions limited 

only by disk space. 


General Ledger 


9) Supports multiple departments 

10) Flexible chart of accounts. 

11) Prints financial statements in 
flexible, user defined formats. 

12- Prints Income Statement and 

17) Balance Sheet by current month, 
current quarter, and 3 previous 
quarters. 

18- Prints Departmental Income 

23) Statement and Balance Sheet by 
current month, current quarter, and 
3 previous quarters. 

24- Prints Budget Comparison 

25) Income Statement and Balance Sheet 
comparing Actual vs. Budget with 
variances and ratios. 

26- Prints Trial Balance and Chart 

27) of Accounts 

28) Prior Period Adjusting Entries do not 
impact current results. 

29) Data Entry screen displays 
beginning, current and ending 
balances as well as the last 10 
entries. 

30) System allows new accounts to be 
created during data entry. 


Accounts Payable 


31) Provides for entry, updating and 
deletion of vendor information. 

32- Allows entry, editing and posting 

33) of payables, adjustments, 
cancellations and prepaids. 

34- Prints the Open Item & Cash 

35) Requirements reports. 

36) Allows partial payments. 

37) Prints A/P checks 

38) Prints Check register. 

39) Prints the A/P distributions to the 
General Ledger 

40) Prints the vendor anaylsis report. 

41) Interfaces to MCBS' General Ledger 
or may stand alone. 


Accounts Receivable 


42) Provides for entry, updating and 
deletion of customer infomation 

43) Allows entry, editing and posting of 
receivables, credit memos, cash 
payments. 

44) Allows up to 99 repetitive line items 
for fast invoicing. 

45) Prints the open item and aged 
receivables reports. 

46- Prints Invoices, Credit Memos 

48) and Statements. 

49) Prints Sales Analysis. 

50) Supports Partial Payments 

51) Prints Invoice, Payment and Credit 
Memo Registers. 

52) Interfaces to MCBS' General Ledger 
or may stand alone. 
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Payroll 
with State & Local Taxes 


53) Provides for entry, updating and 
deletion of employee information. 

54- Handles hourly, salaried or 

56) commissioned employees on weekly, 
biweekly, semi-monthly or mothly 
pay periods. 

57) Calculates Federal, State and Local 
Taxes. 

58) Allows user to maintain all tax 
tables. 

59) Maintains payroll history. 

60) Calculates the payroll. 

61) Prints the payroll register, check 
register and deductions register. 

62) Prints payroll checks. 

63) Provides for after-the-fact payroll 

64- Provides W-2's, 1099's , and 941'5 

67) & prints quarterly earnings reports. 


Inventory 
with Order Entry & Purchase 
Orders 


68) Uses for LIFO and Standard Cost. 
69) Provides for Inventory item entry, 
updating and deletion. 
Provides for order entry and editing 
with inventory update during entry. 
71) Stock and non-stock items. 
72) Handles purchases, returns, 
shipments and adjustments. 
Prints invoices, credit memos, 
picking tickets, purchase orders, 
price lists and shipping labels. 
Prints on preprinted forms or plain 
paper. 
Prints stock status report and 
purchasing advice reprot. 

76) Full back order retention. 

77) Quarterly, yearly and prior year 

inventory history. 

78) Performs book to physical analysis. 

79- Over 20 management reports 

99) including extensive Sales Analysis 

and Lost Sales Report. 

100- Interfaces to MCBS' General 
101) Ledger, А/К, A/P or may stand alone. 


Any Module For 515 еа. 
Or All 5 For $50 Total 
TO ORDER CALL: 
1-800-334-0854, Ext. 826 


For More Information: 
call (713) 444-6269 
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Micro Computer Business Services 
12703 Stuebner Airline Houston, TX 77014 





Accountants ONLY ... 


Accountant's Client 
Write-up System 


1) Designed for Accountants 

2) Allows multiple clients on same 
disk, accessed by client code. 

3) Allows new accounts or new 
employees to be entered from data 
entry screen. 

4) Supports multiple departments. 

5) Running balance shown on screen 
during data entry. 

6) Payroll entries made from same 
entry screen as other entries. 

7) Accumulates all payroll information 
and prints Quarterly payroll reports 
including 941's 

8) Prints W-2's and 1099's. 

9) Produces client bill on a variety of 
bases. 

10) Produces more than 12 reports 
including Changes in Financial 
Position, Income Statement, Balance 
Sheet, Detailed General Ledger. 

11) Includes automatic report printing. 


$150 


АП programs run on IBM 
(PCjr/PC/XT/AT), AT&T, EPSON, 
TANDY (1000/1200/2000), TI, WANG, 
COMPAQ, CORONA, SANYO, 
COLUMBIA *, and MS-DOS machines. 


Requires 128K Ram, 2 Floppies or 
Fixed Disk, 80 Column Printer, MS- 
DOS, PC-DOS 2.0 or later. 

“Computer & software names are 


trademark or registered by their respective 
manufacturers. 





MONEY BACK GUARANTEE! 





Service Contract 
Telephone consultation - $50/yr. 
Shipping charges $5.00 
Texas Resident add 6%% Tax 
COD Charges $5.00 
Payment by Check, MC or VISA 





ATTENTION DEALERS!!!! Call or Write 
Now for the VERY BEST MARGINS (over 
50%) in the Industry. 












Complete Package - G L, A/P, A. В, Р/В, INV OTY. ____ Х 5 50.00 ea. = 
Individual Module - G/ LO A/PO A” RO P/ROINVO QTY. X$ 15.00 ea. = 
Accountants’ Client Write-up System QTY X $150.00 ea. = 
Pay Method: Prepaid, Check Enclosed: ____ Texas Residents Add 68% = 
MC, # Shipping Charges = _ 5.00 
VISA, # If COD add $5.00 
Expires Signature TOTAL 


Company Name 


Street/ Number 
City 











Contact 






Phone 
Zip 








routine is the call to the ROM Routine 
at 29943 decimal. (Line 260.) Depend- 
ing upon the contents of the A-register 
and flags, this causes bytes either to be 
read from or written to the LCD RAM. 
This line is contained within the 
subroutine “CC” from lines 200 to 320. 
“CC” is called four times (once for each 
bank) from within the loop “OL” 
bounded by lines 370 and 520, which 
is in turn executed 10 times (once for 
each of the 10 drivers). 

Prior to calling 29943 decimal, we 
must set up the following entry 
conditions: 


A-Register: 

• Zero in order to write bytes to the 
LCD 

• Non-zero in order to read bytes from 
the LCD. The proper value is retrieved 
each time from RW, the read/ write flag. 
(Lines 240-250). The purpose of ORI 
instruction in Line 250 is to set the zero 












The listing: BARSTR. ВА 


Ø REM BARSTR 5/8/85 

CLS 

G=6Ø855 

FOR 1=2701999 

А = PEEK(G*I) 

60508. 500 

M=256 | 
FOR Т=7ТО 9 STEP "i 
M=M/2 | 
СЕМ AND A U 

I X=P+506*D:Y=J+8*B 

IF D>4 THEN V=Y+32 
IF С-В THEN PRESET (X, үу; 


AS=INPUTS (1) 
STOP 
р=ту222. iii; 
/RSI-D*289 
B=RN5Ø 
P=R-B*5Ø 
RETURN 
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flag to correspond to the zero or non- 
zero contents of the A-Register, since 
the LDA instruction has no effect on 
flags. 


B-Register: 

0,64,128,192 to indicate bank 0,1,2 
ог 3 respectively. (In “OL” loop at lines 
370, 390, 410 and 430). 


DE Register Pair: 
50 (decimal) to indicate the number 
of bytes to transfer. (Line 220). 


HL Register Pair: 

The address in memory from which, 
or to which, to begin the transfer. This 
is taken (in Line 230) from *MP” which 
is initialized in Line 100 and incre- 
mented in lines 280-310. 


Furthermore, the appropriate driver 
must be enabled (lines 200-210). *TP,” 
which is initialized in Line 330 and 








62915 DATA 50, 147, 248; 6,2 Te TE 
62920 РАТА 205, 153, 245, 6, 64 BAR CODED LISTING | 
62925 DATA 295, 153, 245, 6, 128 | ІБЕМ, mr 
62930 DATA 205, 153, 245;6; 192 | | if н НИШ 
62935 DATA 205, 153, 245, 42, 151 “The listing: LOSAVE. gn. 
6294) DATA 245, 35, 25; 34, 151/ | ШИШ ШШ 
62945 DATA 245, 58, 147, 245, 61 | а. ^LCSÀVE 5/7/85 | 
A i ; | 111900 CLS: CLEAR 200,58855_ 
62958 РАТА 50, 147, 245, 194, 198 912 EORDMNEMS Сон 
62955 DATA 245, 205, 62, 116, 201. їрдї PRINTED," "I 
| | 1095 GOSUB 12ø9 | 
| | | 1918 CALL 62858, aj 88855. 
ШІШІЙ20 AHIS 
ТТС СОГ | Un dl B ODE 
I + __| 1111030 бовпв гара | | 
1 1848 CALL 62855,1, 6. 855 | 
im Å ШІ КІШІСІ я ii 
| 1200 FOR X-TO. 239 ШИИНИН 








ЖОШ КЕ; 


22 FOR 71705. 


| 1223 Х2=х2+5: 
1172239: 








1052894. FOR uu TO. 8: PRINT aS; NEXT: PRINT 







11234567"; 








| en 
ELSE PSET. Па | | Pi | 


ne listing: Lest. 


(1058 'LCcRSTR 5/2/85. 


Тер CALL 62855, 


HIP Tl AS=INPUT $3) 
00 100 CALL 62855,0, 





HHIH N AS=INPUTS 
(0535 GOTO! 82 


ШЕН NEXT: RETURN. ІНІН | | 
1112090 ASS!" 3 FOR ИО 38: å 1ASPASHCHRS (A) : :A= 









Мт ite Ш dn ИП 


| BAR CODED LIST 
an 


incremented in lines 450-480, points to 
a table in ROM which contains the 
appropriate bit patterns to enable each 
driver separately. 

The process is terminated when 
“TC,” which is initialized to 10 in Line 
350 and decremented in lines 500-510, 
reaches zero (Line 530). 

Immediately before the exit, the 
keyboard which had been disabled in 
Line 270 is re-enabled (Line 530) via 
a ROM call. 


Notes on the Source Code 

The Source Code is given in the 
infamous Intel mnemonics. The 
assembler I used was downloaded from 
the Model 100 SIG on CompuServe and 
further modified by me, so I can’t 
guarantee that the exact syntax will 
work with your assembler. For exam- 
ple, the line numbers are not used by 
many assemblers and the use of “/” to 
indicate the beginning of comments is 
































чу Хах. 


ДЕ. 2223 9THENX2-X2 2-240 









шу 
МС. 


rm 
ІШІН 





ва | 


ig. 58855. 


e ТТ | 


YOU CHOOSE: 


Terminal Emulation Mode Crosstalk: XVI Smaricom | 


Menu-driven Interface Yes Yes 
Expert/brief Command Mode Yes 

Extensive Help Facility Yes Yes 
Directory-based Autodialing 

Automatic Logon Yes Yes 
Programmable Function Keys Yes 

Multiple Modem Support Yes 


File Transfer Mode 

Error Checking Protocol Yes 
Wildcard File Transfers Yes 
File Transfer Lists 

XMODEM Protocol Support Yes 
Mainframe Versions Available 


Command Language 
Conditional Instructions 

User Variables 

Labels 

Fast Interpreted Object Code 
Program Run 

Subroutines 

Arithmetic and String Instructions 
Debugger 


Miscellaneous 

Remote Access 

Electronic Mail 
Unattended Scheduling 
Expandable Interface 
CP/M Versions Available 


MLINK 


The choice is easy. Our MLINK Data Communications System is the most powerful and 
flexible telecommunications software you can buy for your personal computer. And 
it’s easy to use. MLINK comes complete with all of the features listed above, a clear and 
comprehensive 275-page manual, and 21 applications scripts which show you how 
our unique script language satisfies the most demanding requirements. 


Choose the best. Choose MLINK. 








О 
1 
. 





Corporate Microsystems, Inc. Introductory offer - we pay shipping! 
P.O. Box 277 Include $250.00 for each copy of MLINK. 


Etna, NH 03750 Outside North America add $15.00 (U.S.) 


(603) 448-5193 
— Check enclosed —— MasterCard . Visa 


—— COD (Registered checks or money orders only) 
Please send me the following version(s) of MLINK: 














Gd di x ae L саланы Eh 
Tandy Model 1000/1200 (MS-DOS) ; 
Tandy Model 2000 (MS-DOS) Signature 
Tandy Model 4 or 4P (CP/M Plus only) Ship to: 
— ІВМФ PC or compatible (PC-DOS) Name 
Send me more information Adde 
Other versions are also available. 
Please call for current version information. City/State/Zip 


MLINK is a trademark of Corporate Microsystems, Inc. Crosstalk XVI 15 a trademark of Microstuf. Smartcom II is a trademark of Hayes Microcomputer Products. IBM is a 
registered trademark of IBM Corp. PC-DOS is a trademark of IBM Corp. MS-DOS is a trademark of Microsoft Corp. CP/M is a registered trademark of Digital Research. 





probably not standard. However, the 
object code in Listing 5 can be relied 
upon. 

For more information on ROM calls 
and a discussion of the LCD hardware, 
see Hidden Powers of the TRS-80 
Model 100 by Christopher L. Morgan. 


The Next Step 

The ability to save and restore 
arbitrary sections of the screen rather 
than the entire screen is probably the 
most obvious and desirable enhance- 
ment. It might make possible some 
types of animation within limited 
memory. 

This problem could also be 
approached without modifying SMS by 
calculating where in the 2,000 byte area 
the sub-area is located. In the 2,000 byte 


area we've reserved for the screen 
image, the first line of the screen is 
distributed in a non-contiguous fashion 
thus: 


1- 50 
201-250 
401-450 
601-650 
801-840 


Bytes 


Bytes 841-850 don't correspond to any 
pixels. 
The second screen line goes like this: 


51-100 
251-300 
451-500 
651-700 
851-890 


Bytes 


Listing 5: Assembly ih Source Code. 


"МОР ЖКА ЕЛЕ, FLAG | HHIH 
NOP: / POINTS ТО ‘MEMORY’ AREA FOR 


Again, bytes 891-900 don’t correspond 
to pixels, 

I think you can see the pattern. With 
this information, you can address any 
area of the screen. For example, you 
can create an image using PSET, save 
it using SMS then pick off the subsec- 
tion of the screen in which you are 
interested from the 2,000 byte area. 
Later, when you wish to restore the 
small area, save the screen again, poke 
the small area(s) or use a machine 
language block move, and restore the 
screen. All three steps in machine 
language would probably be too fast 
to be observable. 

If you have questions or comments, 
I would be pleased to hear from you 
at 1681 E. Dorothy Lane #14, Kettering, 
Ohio 45429. О 
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Discover a Whole 
New World of TV 
Entertainment! 


User Installable! Over 100 Channels! 
Uncut Movies! Specials! Sports! 
News! Weather! Music Videos! 


ULL. 
Approved 





Now you can enjoy it all! 24-hour non-stop entertain- 
ment that you simply can’t get from local TV, cable, and 
even video tape! You'll see the hottest stars, recent un- 
cut and uninterrupted movies, the ultimate in sports 
coverage—and the best part is, there are no monthly 
fees to pay. You'll see exciting family-oriented pro- 


m Totally Automatic System With 101/2-Ft. 
Dish, Receiver and Wireless Remote Control 


= Comes With All Accessories Needed for 
Complete Do-it-Yourself Installation 


m Descrambler Ready 


Handy Wireless Remote Lets You Change 
Channels, Control Volume and Fine-Tune 


grams, plus music videos, FM broadcasts and movies 
with provision for stereo, and 24-hour news coverage 
on both TV and radio. It all adds up to out-of-this-world 
TV viewing at a down-to-earth price. Come in today and 
discover how easy it is to enjoy satellite programming! 
Includes complete installation manual. 


(817) 825-4027 
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UPS Shipping 
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Graphics 1000 


The Gallery 


With Wayne Sanders 





his month’s Gallery exhibit comes 
| to us from Charles Е. Moore of 
Forest, Va. 

The program, 3D-GRAPH, mathemat- 
ically generates a three-dimensional 
picture in graphics mode six on the 
Tandy 1000. The program is slow 
because of the time involved for the 
computer to make the calculations (it 
takes approximately 12 minutes to 
complete the display). You can change 
the screen modes and palettes to create 
some interesting effects. 

A check is on its way to Charles. If 
you would like to show your art work 
in The Gallery, send in your graphics 
program or a screen dump and .BIN 
file of your masterpiece to The Gallery. 
If your work is used, we'll pay you "5 





Тће Listing: 


CLEAR. pap, 227601: DIM 155: 
Ø KEY OFF. 
Ø CLs: LOCATE 


170 LOCATE. Py 22: ПРОТИВЕ, Density. (Defaultesg) "DOT 
ВЯ IF DOT<1Ø OR DOT>1ØØ THEN DOT-92 ^ ^. 
190 LOCATE 8,22:PRINT" ж ‘Select. Viewing Angle em МАЊЕ 
pi LOCATE. 9 1:2 Degrees is from Overhead" . 
, (32: ipu Angle ІШІ is from Side" . 


m Ps RS 
| P RAN. ов SIN(A) 10=COS (A) 
5Ø CLS:SCREEN 6000 | Қ 
60 WIDTH 40. м А m NR 
Ø PSET(l, 1) :DRAW" C4 p MAUR ИИН ҮКІНІ 
80 | PSET (12,9): DRAW" c4. FUENTES DO? "UDI81;'*"L349'-"U181;" 
эй PSET(4,4) :DRAW'cl;"4"r311;"4"d191;"2"1311; *'u191;" 
|PSET(7,6) : DRAWNGL O+ "r3p5; м. 
4 FOR I--4*DOT TO f. | 
| MAX=-1ØØ: MIN=1ØØ:X=T/DOT:X1= LINT (30*X+. 5). 
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NLSINT(SQR(16-X*X)*LD) 

FOR Ke-NL TO. f 

Y=K/LD 

GOSUB 342 

A(-K) =Z 

GOSUB 372 

NEXT К 

GOSUB 459 

NEXT I 

FOR DL=1 TO 3ØØØ:NEXT DL 
GOTO 222 

R-1.25*SOR(X*X*Y*Y) 
221.75*(COS(R)*.4*COS (3*R))*.25 
RETURN 
Y-INT(3g*(C*Y4S*2)*.5) 

IF Y«MIN THEN MINSY ELSE 419 
Р5ЕТ(150%Х1,96-Ү),12 
PSET(1590-X1,96-Y),12 

IF У>МАХ THEN MAX=Y ELSE 449 
PSET(1594X1,96-Y),12 
PSET(150-X1,96-Y),12 

RETURN 

FOR K=@ TO NL 

ZSA(K) 

Y=K/LD 

GOSUB 372 

NEXT К 

RETURN 


e. 
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22511 Katy Fwy., Katy (Houston) Texas 77450 CALL FREE: 1-800-433-S-A-V-E 


(713) 392-0747 Telex 774132 Monday thru Friday - 9:00 a.m. to 5:00 p.m. 
(Order inquiries/Customer Service &) IN TEXAS: 817-573-4111 
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Marty Petersen, 
formerly with 
Software Products 
International, gives us 
an insider 5 look at 
this powerful 
integrated program. 
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1000, 1200, 2000 


The Power of 
Open Access 


his is not a intended to be a sales 
| pitch for Open Access. Neither 
is it meant to be a technically- 
oriented discourse on the complexities 
of the program. What it is... is just 
me, a person who has had a fair amount 
of experience using the program, 
talking informally to you, a person who 
perhaps is interested in knowing some- 
thing about the program without being 
overwhelmed by tons of dialog. 

Maybe you just bought Open Access 
and want some tips on how to get the 
most use out of it. Or maybe you're 
just curious about the program and 
want to find out what it can do. If so, 
pull up a chair and ГЇЇ tell you some 
things I’ve discovered. 

Open Access is classified as an 
“integrated” program, which simply 
means that it is several programs that 
combine to operate as one. In this case, 
six modules join forces; the functions 
of database, spreadsheet, graphics, 
word processing, time management and 
communications ally in a common 
environment that shares data and other 
facilities. 

Its primary program, or module, is 
the Information Manager. There are 
several nicknames that people use to 
describe this module . . . file manager, 
database manager and so forth. If you 
want to be accurate, it is a relational 
database manager. This means that it 
has the ability to work with more than 
one file, or database, simultaneously. 


By Marty Petersen 


This fact has powerful implications that 
most people do not realize. 

For instance, let us assume that you 
belong to some organization that wants 
to keep track of families. You would 
like to create a database that contains 
the family name, address, city, state, 
ZIP code and phone number, and then 
the names and birthdays of each family 
member. Sounds easy enough, doesn’t 
it? Well, when you get down to designing 
the fields for each element of informa- 
tion, how many fields should you set 
aside for family members? Should you 
allow for two children? Or five? Well, 
I have nine! If you allow for a large 
number, just to be safe, then that is 
wasteful use of valuable storage space 
(because not too many people have nine 
children). And if you chop it off at a 
small number, say three, then six of my 
children would be dispatched to 
oblivion. 

A better way to handle the problem 
is to create two files. The first would 
contain the common family information, 
such as the family name, address, and 
etc. The second file would contain the 
names and birthdates of each family 
member. There is no wasted space, 
because if a family contained only two 
persons, then only two records would 
be created. In my case, the computer 
would create 11 records. 

But most important of all, each file 
would contain one piece of information 
that is common to both. This is the 


“link” that “relates” one file to another. 
In this example, you might be tempted 
to include the family name in the second 
file which would relate to the family 
name in the first file, but there may be 
more than one family with the same 
name, and the computer wouldn’t know 
what to do. (Imagine what would 
happen if it came across “Smith” or 
“Jones.”) 

A link that relates files should be 
something unique. A phone number is 
unique, isn’t it? If you include the phone 
number in each record of the second 
(members) file, then the family name 
in the first file would link or relate to 
the members’ names in the second file 
by a common phone number. 

They say that a picture is worth a 
thousand words, so here are some 
diagrams that hopefully illustrate what 
I just explained. “Single File” shows 
how the family information would have 
to be stored when the computer can 
work with only one file at a time. 
“Relational Database” shows how two 
files are linked together on a common 
field. 


1, personally, use а different approach. 
Open Accsss can link on a single field, 
but it can also link on two or more 
fields if they are tied together in the 
joining statement. What I have, in the 
family file, is a “family last name” field 
and a(head of) “family first name” field. 
In the members file there is a “members 
last name,” a “members first name,” a 
“family last name” and a “family first 
name” field. 


ARE Å 1. FAMILIES 


|| FAMILY LAST NAME. К 
| | FIRST NAME, ` 


[92 BIRTHDATE ` 
#3 FIRST NAME ` 


iy MH BIRTHDATE. Å M 


tl у МАМ pier МАМЕ. 5 
M р жн”. (ИНА 


I tie the “family last name” to the 
“family first name” in the members file 
and link them to the “family last name” 
plus “family first name” combination 
in the family file. This approach has 
several advantages. First, it addresses 
the reality of the fact that family 
members do not necessarily have the 
same family name. Divorces and adop- 
tions are all part of life. Second, it 
allows me to create some fancy arats 





in reports. There are times, for instance, 
when I want to print “Jack Jones” 
rather than “Jones, Jack,” or in a mail- 
merge operation I may want to use the 
phrase “Dear Jack” or “Dear Mr. 
Jones” rather than “Dear Jones, Jack.” 
By dividing the person’s name into two 
separate fields, you have more flexibility 
of control of how you want to print 
it out in a report. When you set up a 
database, particulary with names, you 
need to anticipate how you are going 


to report the information you are 
storing. 

Well, I promised you that I wouldn’t 
get too deeply technical, so let me talk 
about some other things you might like 
to know about the program. I know 
you've heard the phrase “we don’t do 
windows!”. But Open Access does 
windows! Very nicely, I might add. Just 
what is a “window” in computer 
language? Imagine a computer screen 
filled with information from top to 
bottom, like your desk loaded with 
paperwork. Let’s suppose that you want 
to make a quick calculation for a project 
you're working on, so you take out your 
“four-banger,” lay it on top of your 
papers, perform the calculation, and 
then put the calculator away. If you 
drew a box around your calculator, that 
would be similar to a *window" on the 
computer. 

With Open Access, if you wanted to 
do a quick calculation, you would press 
the CALC function key. This would 
cause a calculator to appear on the 
screen, framed in a “window.” Using 
the regular keys on the keyboard, you 
would operate this calculator just like 
you would a real one. After you are 
finished, you press the ESCape key 
which causes the calculator to disappear. 
Much in the same fashion as you work 
by stacking papers on top of papers on 
your desk, you can stack *windows" in 
Open Access by pressing function keys, 
use what's inside the window, and then 
clear them by pressing *ESCape." 

As an example, a press of the HELP 
function key produces a *help" message 
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which is boxed in a window. The help 
message is relative to the specific 
location you are in the program. For 
instance, if you are in the database 
module, you won't get any information 
about how to use the word processor. 
By using the arrow keys, you can scroll 
the help information up or down inside 
the window. The help information 
occupies a lion’s share of the program’s 
RAM memory requirements and, nine 
times out of 10, you can get the help 
you need without having to refer to the 
manual. A second press of the HELP 
key produces another window which 
defines every function key or other 
special key used by the program. 

There is also a window that lets you 
know the names of the files you have 
on disk (that’s what the SEARCH key 
is for), and there are windows that call 
for menu choices (the MENU key, of 
course). Each time you press an appro- 
priate function key a window appears, 
stacked and offset in much the same 
way as you would randomly stack 
papers on a desk, and each time you 
press ESCape a window disappears until 
you are back to your original screen. 

Time for another regrouping. I find 
myself getting so excited when I talk 
about my favorite subjects that I forget 
that you might have something to say. 
Did you say you wanted to know 
something about the word processor? 
OK, let me tell you about that. 

As a software reviewer, I have used 
a lot of different word processors. A 
lot. It got to the point where I swore 
I would never learn how to use another 
word processor because I didn’t want 
to crowd my mind with the additional 
commands. But, when Open Access 
came along, I was pleasantly surprised. 
It makes use of the best of word 
processing philosophies global 
settings when you need them, and in- 
text, override commands when you 
need them. It lets you decide which 
method of text-entry is the more 
comfortable to use. 

Most people who use the word 
processor make the mistake of not 
utilizing the fantastic features of the 
program. A typical scenario goes 
something like this: John wants to type 
a letter to Mary, so he enters the word 
processor, selects “create new document” 
as opposed to “read old document,” and 
then writes the letter. However, there 
are margins, justifications and print 
parameters (headers, footers, page 
numbers, etc.) to set up, so he probably 
spends more time setting up the doc- 
ument’s parameters than actually 
70 
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writing the йт. Айег petter the 
letter, he may save it as а document 
file, or he may not. 

Here is а better way to use the word 
processor which saves a lot of time in 
the long run. Make forms. That 15, 
before you write a letter, or anything 
else, use the “create new document” 
option and create а form, called а 
“template.” For instance, you could 


create a template called “Т. LETTER” 
(the “Т” stands for template to remind 
you not to destroy this file). As soon 
as you establish the file, select *Back- 
ground” and а background setup screen 
will appear. What this allows you to 
do is preset eight different paragraph 
formats, labeled ‘A’ through ‘H’. For 
instance, you may define paragraph 








style ‘A’ as 5 having a left margin of 10, 
a paragraph margin of 15 (the paragraph 
margin is the setting that the first line 
of the paragraph will tab to), a right 
margin of 70, and be left-justified (that 
is, the left margin will line up and the 
right margin will be ragged, just as a 
conventional typewriter would type). 

You may want to set paragraph ‘B’ 
to have both left and paragraph margins 
of 20, a right margin of 60, and be both- 
justified (where both left and right 
margins line up). Can you visualize that 
this paragraph will be inset by 10 
characters on each side relative to 
paragraph ‘A’ and have that “typeset” 
or printed look? If you use your 
imagination, I’m sure you can think of 
all kinds of styles that you would like 
to define paragraph settings for. I like 
to use “outdented” (as opposed to 
“indented”) paragraphs. This is where 
the first line of each paragraph starts 
to the left of the rest of the lines in 
the paragraph. It’s great for highlighting 
information you might like people to 
notice, such as in a sales brochure or 
resume. In additon to setting paragraph 
styles, you can define codes that take 
the drudgery out of typing long phrases. 
For instance, to type this article I have 
defined “OA” as standing for “Open 
Access” I just type “OA.” Just think 
of what a lawyer could do by perhaps, 
defining “17 to mean “the party of the 
first part”! 

At any rate, after you have defined 
all of your paragraphs, and then have 
set the printer parameters to your 
liking, save the file as *T LETTER." 
Now, whenever you want to write a 
letter, don't “create new document," but 
“read old document" named “Т. LET- 
TER." When it pulls into the computer, 
you will start out with a blank screen, 


but all of your favorite margin settings, 
typing codes and printer parameters are 
preset for you. Before you type a 
paragraph, choose by letter ‘A’ through 
*H' the paragraph style you want to use. 
Don’t worry about choosing the 
wrong style, because if later you decide 
you want to change it, you can without 
having to retype your text. After you 
have printed your document and you 
decide you want to save it as a textfile, 
don't save it as “Т LETTER" because 
that will destroy the template. Save the 
file under a new name, such as 
*MS022685" (Mary Smith — 02/26/ 
85). When you do a search of files on 
your disk, you will then see a file called 
*MS022685," and you will notice that 
"T LETTER" is still there for the next 
time you want to use it. Bear in mind 
that you can create hundreds of tem- 
plates, each with paragraphs, code 
words and printer parameters set to 
your liking for the particular document 
you have designed the template for. 
One of the criticisms of the word 
processor (an unjust one, 1 might add) 
is the fact that you can't create large 
single textfiles. You can create a textfile 
that will print out to a dozen or so 
pages, but you can't put the contents 


of a book into one file. Many authors 
claim that they can't print out their 
manuscript in one shot. Well, the fact 
of the matter is, Open Access can print 
out an entire book with a single swipe 
of the PRINT button, by using a simpler 
procedure than most other word 
processors. 

You see, #5 a matter of analyzing 
work habits. The general scenario of 
printing a book goes something like 
this: First, the author writes the *pieces" 
of the book and saves them as small 
files. Maybe there's a “Chapter 1" and 
a "Chapter 2" and so on. When he or 
she gets ready to produce the whole 
book, the thinking is to create a file 
called *book" and then copy "Chapter 
1” and “Chapter 2" into “book.” This 
is erroneous thinking. First of all, it is 
laborious and time consuming to copy 
small files into one large file, even if 
the word processor could handle it. 
Second, it is wasteful of disk storage 
space, and may not even be able to be 
accomplished. If “Chapter 1,” “Chapter 
2” and etc., take up more than half of 
the disk space, how is “book” going to 
be saved? 

Open Access has a better idea, which 
is to use a “batch” processing technique, 


where you create a file that lists all of 
the files you want to print. What you 
do is simply create a textfile called 
“book.” There is an embedded print 
command available in the word pro- 
cessor called “include.” It is meant for 
a lot of things, like including database 
files, spreadsheet models and graphs 
with your text. Anytime you want to 
include something that is on file 
someplace else, just enter "^include 
<filename>.” Well, this “include” 
command can obviously be used to 
include other textfiles, and the “include 
commands" can even be nested; that is, 
the file you *include" can have its own 
“include” commands. 

Getting back to the scenario, once 
you have "book" established, just say 
“include chapter 1," *^include chap- 
ter2," and so on. There is no limit; and 
when you print “book,” you will print 
each of the subfiles in the order you 
specify. It’s fast, easy, doesn’t waste disk 
space, and doesn’t waste your time 
copying files. 

There are enough things about Open 
Access to tell you that it would take 
a book. Come to think of it, that’s 
probably why Open Access’s documen- 
tation is so hefty. [PCM] 
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By Danny Humphress 


fter a rather short introduction to MS-DOS system configuration last 
A we are ready to move on to putting the CONFIG.SYS file to use. 

This month, we'll explore ANSI.SYS, the ANSI standard console driver. 
ANSI.SYS 

Probably the most common MS-DOS device driver is ANSI.SYS. ANSI.SYS 
causes your computer’s console (the keyboard and display) to understand the 
codes used by terminals that follow the ANSI standard. Specifically, these are 
standard escape sequence codes used to reassign keys, change the display attributes 
and control cursor movement. Many programs use these ANSI codes because 
they are constant from one terminal or computer to another, regardless of the 
keyboard or video display used. 

The fact that many commercial programs require the ANSI .SYS driver is reason 
enough for having it installed in your configuration file (CONFIG.SYS). However, 
ANSI.SYS offers many features the non-programming power user can take 
advantage of outside of these commercial software packages. By redefining keys 
and changing the video attributes, you can configure your MS-DOS system to 
work as your very own creation. It’s these functions of ANSI.SYS that we'll 
discuss today. 


ANSI Codes 

Each ANSI function code is a series of characters beginning with an *ESCape" 
character (ASCII 27). These characters are simply sent to (printed on) the display. 
Instead of the characters being displayed on the screen, they are “caught” by 
ANSI.SYS and the specific operation is performed. 

The ANSI function for clearing the screen, for example, is ESC [2J. To clear 
the screen using the ANSI codes, you would send an ESC character followed 
by the three characters, [2J. 

If you're a BASIC programmer, your first response might be to do something 
like PRINT CHRS(27);”[2J” in BASIC. You would be on the right track, but, 
unfortunately, you can't use the ANSI codes directly from BASIC. This is because 
BASIC bypasses the BIOS (the internal program that controls input/output) and 
has its own way of handling the video display. 

You might try pressing ESC on the keyboard and typing [2J. Close, but MS- 
DOS does not display the ASCII code for ESC when you press the key; instead 
it cancels the command line you're writing. Sorry. 


So, the problem is that it’s hard to get an ASCII 27 
to display on the screen. Well, it’s not that hard. An easy 
way to do it is to store an ESC character and the other 
characters in a file, then whenever you want the ESC 
sequence to go to the screen, you could use the MS-DOS 
TYPE command. The following BASIC program will create 
a file called CLEAR with the ESC sequence to clear the screen. 
You only need to run it once. 


10 OPEN “CLEAR” FOR OUTPUT AS #1 
20 PRINT #1,CHRS(27);”[2J” 
3@ CLOSE 


Now, back in MS-DOS, you could type this command 
to clear the screen: 


TYPE CLEAR 


Of course, you could also just use the MS-DOS CLS 
command, but this is a simple example of one of the ANSI 
commands. 

By chaining the filename in Line 10 and changing Line 
20 for the particular ANSI code you want, this BASIC 





"The fact that many 
commercial programs 
require the ANSI.SYS 
driver is reason enough. 
for having it installed in . 
your configuration Ше...” 





program can be used to generate files containing any ANSI 
codes you desire. Remember, though, that you must go 
back to the MS-DOS level and use the TYPE command 
to send the file to the display. 


Screen Colors 
Let's try something a little more exciting. Change the 
previous BASIC program to read: 


10 OPEN “MYSTERY” FOR OUTPUT AS #1 
20 PRINT H1,CHR$(22);^"[73h^; 

30 PRINT H1,CHR$(22);"[34m^; 

40 CLOSE 


Now run it, return to MS-DOS and enter TYPE MYSTERY. 

If all went well and you have a color monitor, the DOS 
prompt will be blue and everything you type from now 
on (or until it’s changed back) will be blue. If you have 
a monochrome monitor on a Tandy 1200 or 2000, the text 
on the screen will be underlined or not there at all, 
depending upon the graphics card used. 

Line 20 of the program added the code to change the 
screen to the 80-by-25 color text mode (ESC [=3h). The 
next line changed the foreground color to blue (ESC [34m). 

Please don't try to make heads or tails out of what these 
codes mean. There is no particular reason that ESC [34m 
changes the screen blue other than that's just the way ANSI 


INTERNAL HARD DRIVE 
FOR THE TANDY 1000 
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20 MEG INTERNAL $1195 
40 MEG INTERNAL $1795 
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experience in the field. DELKER 


DELKER ELECTRONICS, INC. 
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wants it. A full list of ANSI codes can be found in the 
Programmer's Reference Manual among other places. For 
your information, though, Table | lists some common codes 
for changing the display. 

One of the things I like to do with these little screen 
beautifiers is have a line in my AUTOEXEC.BAT file that 
will automatically change the screen color to green. 
Something such as TYPE GREEN would work if GREEN 
contained the proper ANSI codes. The only problem with 
this is some programs change the screen attributes back 
to the boring white on black and you have to enter another 
TYPE GREEN to get your color preferences back. 


Redefine Keys 

As mentioned, there are ANSI commands that allow 
you to change the meaning of the keyboard keys. To do 
this you have to know two things: the ASCII code or codes 
generated by the key on the keyboard, and the ASCII code 
or codes for what you want the computer to do when you 
strike the key. 

The ASCII code for an uppercase ‘A’ is 65. The ASCII 
code for an uppercase “В” is 66. To tell MS-DOS to redefine 
the ‘A’ key so you get a “В” when it’s pressed, you would 
use the following ANSI command: 


ESC [65;66p 


If you are using the above BASIC program to generate 
this code, Line 20 will look like this: 


20 PRINT tt1,CHR$(22);"[65;66p^; 


The 65 defines the key we are changing and the 66 tells 
MSDOS what we're chaining it to. 

It's unlikely that you would want to change the alphabet 
around like this, unless you're making a Dvorak keyboard, 
so here's a more practical example: 


ESC [43 ^DIR^;13p 


This ANSI command changes the CONTROL-D key 
sequence to DIR followed by an ENTER (ASCII 13). 
Whenever you press CONTROL-D, the computer thinks you 
typed DIR and pressed ENTER. 

There are a couple of things different about this command 
line. Instead of giving the ASCII values for DIR, we simply 
enclosed the string in quotes and let the ANSI.SYS driver 
figure the three ASCII values. The other difference is that 





Cheapware"" tor ne randy 1000, 1200 and compatibles. 


* LABEL MAKER with box of 3,000 labels .......................... $45.00 
* 5 YEAR DIARY ... 








(unprotects any protected 
* WORD LIST o! the American 






All programs are supplied on diskette with printed documentation (except BASIC Printer and 
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* All programs bear 
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Tandy is а trademark of Tandy Corporation 
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we are replacing one keyboard key with four characters, 
DIR and the ASCII 13. You can use as many characters 
as you like this way. 

Some of the special keys on the keyboard, namely the 
function keys, return two ASCII values instead of just one. 
The first character of these two-character keys is always 
an ASCII zero. The next character is а value in the range 
zero to 255. The Е10 function key, as an example, returns 
zero and 68. This information can be found in the 
Programmer's Reference Manual. 

To program the F10 key to DIR and ENTER, you would 
send the following ANSI command to the display: 


ESC [Ø768; "DIR^;13p 


Since the first value is a zero, ANSI.SYS knows this is 
a two-character key and that the second number is the 
second character returned by the key. The remaining 
characters, up to the p, are the new characters for the 
key. 


More ANSI! 

We've covered but a few of the available ANSI 
commands. Hopefully, these are enough to get you to the 
point where you can look at the charts in the Programmer s 
Reference Manual and know what to do. 

In the August “MS-DOSsier,” we'll use ANSI codes 
along with a new command, PROMPT, to change the MS- 
DOS environment to suit our needs, desires and moods. 
Sound interesting? 
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Basic Bytes 


Be prepared for April 15 with these 
spreadsheet templates 








100, 200, 1000, 1200, 2000 





Preparing for the 


Tax Collector 


in a new book, 1-2-3 from A to 2, Elna Tymes and 

Tony Dowden, Hayden Books, 1985. This book 
includes 59 complete templates for Lotus 1-2-3. Many of 
these are simple examples consisting of making lists and 
finding subtotals and final totals. The next order of 
complexity deals with interest calculations which are not 
much more than multiplication. @ТЕ() is used a lot in 
some sheets, @SUM{( ) shows up frequently, (OAVG( ) less 
so and @NPV() very infrequently. Divisions show up 
frequently since one is often looking for usage per time 
period averaged over some period or average cost per item 
when total manufacturing costs are known. Still, none of 
this is particularly complicated. 

A basic problem I have is finding spreadsheet tasks that 
even start to challenge the capabilities of spreadsheet 
programs. A finite element analysis of the stresses and 
deflections in a flat plate secured at two sides and loaded 
in the center might do. But, I just don't have need for 
that information today and I doubt that many of you do, 
either. Repetition of simple structures characterizes most 
spreadsheets. 

We have talked in previous columns about REPLICATE 
and COPY commands. These work wonders in building 
the basic spreadsheet. Now think about repeating your basic 
template a number of times in a single spreadsheet. It's 
not hard, but it does raise some point to think about that 


Te basic simplicity of spreadsheeting is brought home 


(Richard White has a long background with microcom- 
puters and specializes in BASIC programming. With Don 
Dollberg, he is the author of the TIMS database 
management program for the Color Computer.) 


By Richard A. White 
PCM Contributing Editor 


we have not touched before. We need an example which 
I just recently had in a bag over on my book shelves. 

How many of you save your sales slips so you can total 
your sales tax for the year to deduct from your income 
tax? That's what I keep in the bag —a bunch of sales 
slips. Sometimes all that tax needs to be added up, so 
let's do it in a semi-organized way. We could take each 
sales slip off the pile, write down the tax and put it on 
another pile; then add up all the numbers. Or we could 
build a budgeting spreadsheet, where each purchase is 
categorized and entered in its category. The program then 
might calculate monthly subtotals by category, compare 
these to the budgeted amounts and show whether we are 
over or under budget. Plus, this data helps in establishing 
future budgets. 

I have real problems with this. My computer budget 
would have to be negotiated with my wife, who is not 
particularly pro-computer. On the other hand, I am anti- 
garden-mulch, which causes her problems. She does not 
tell me how many bags of mulch she buys and I say very 
little about the new disk drives. 

An intermediate approach is to organize the data just 
enough in a spreadsheet to impress the IRS, if needed, 
and say that's enough. I decided to group the data by month 
with subtotals and then get a year-end total. Being able 
to check the entries by the date would be required, as well 
as a brief purchase description. Curiosity got the better 
of me, so I included a total sale column. 

The strategy will be to build a template for one month, 
and then duplicate this monthly template a number of times 
to get part of a year into a single spreadsheet. 

Why only part of a year? There are limits to the number 
of rows a spreadsheet will permit. Users of Lotus or some 
other large spreadsheet don't need to worry about this, 
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as publishers seem to be competing to put ош the largest 
spreadsheet program possible. This is fine if you have 640K 
and dream about two megabytes. Those working with Lucid 
or MultiPlan in a Tandy 100 or 200 know that every little 
byte counts, so they live with limits. Lucid supports 255 
rows while Multi Plan supports only 99. Some of these rows 
will be tied up with monthly headings and totals. If you 
are going to save money by itemizing your sales taxes, 
you will probably have over 200 purchases requiring more 
rows than are available in a limited spreadsheet. Memory 
may be a limit, rather than row count, in larger 
spreadsheets. If you are using a larger sheet, try putting 
the whole year in. It won’t hurt to take the chance. If 
you do run out of memory in the middle of November, 
whip up a new template to finish out the year. 


“ пин 
р ИИ 


MEET THE WIZARD" 


Quality / Price / Performance Guaranteed 


Easy to use! $29.95 for any one package 


9.95 for each additional 
For TANDY 1000, 1200, 2000 and Compatibles 
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sorted directory tree, rename directories, cross 
directory file search, quick sort directory display, 
change file attributes, and more (8 programs in all). 

. SHRED — For your Security needs. Put your 
confidential files through the Shredder and even 
the Wizard can't restore them! Confidentiality 
guaranteed. 

. RAMDISK — Transform your spare memory into 
superfast disk(s). You specify size and number. 

. SNAPSHOT — Instantly save and display up to 99 
text screen images. Great for debugging, Help 
screens, etc. 

. SHERLOCK — Find lost files. Give Sherlock a clue 
(eg phrase or fragment of file contents) and files 
will be located in all directories. 

**For Okidata, Epson and compatible Printers** 

6. GRAFIX — Send graphics screen image to printer. 
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7. FONTFIX — Send control codes to printer to 
configure output mode. Easy to use mnemonics. 
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P.O. Box 714 800-942-7317 in ILL. 
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Now, the joker in the back of the room who was selling 
4K memory chips as antiques asks, “why not put two six- 
month templates side by side?” This might work, but not 
be as neat when we insert rows in months that have a 
large number of purchases while the adjacent month does 
not need these extra rows. 

The top portion of our template is shown in Figure 1. 
To simplify setup, I made the monthly template 15 lines 
long. This way, a month will start at either X1 or X6- 
16 or 31, for example. Once you start using the template, 
this order will be lost when you insert lines, but by that 
time it will have served its purpose. 


The first order of business is to plan the column widths. 
The only column needing to be wider than the default nine 
characters is B for purchase description. I set this at 16. 
If you are working on a Tandy 100 or 200 you had best 
leave column B at nine characters so all four columns show 
on the display. Column A for the date, C for the Tax 
and D for the total sale can stay at nine characters. 

Next comes formatting. In column A, dates are to be 
neatly shown left justified under the heading. In a similar 
fashion, a ‘$’ format is to be put on columns С and D. 

In some spreadsheets, one FORMATS individual cells 
and then REPLICATE or COPY those cells down a 
column. Some spreadsheets won't FORMAT an empty cell, 
so put a space into the cell and then FORMAT it. Lotus 
1-2-3 has a centering format which you can use rather than 
the left justification for column A. Once you have formats 
in cells A3, C3 and D3, use your REPLICATE or COPY 
function. Your starting range is A3... D3 and then the 
target range which is А4... A15. 

Labels can be typed in any time. Formats apply here 
and can be handled in a number of ways. Some spreadsheets 
accept leading spaces and you can manually add the number 
needed to place the label just so. Too many? Edit the line 
to take one or more out. Others won't accept leading spaces, 
but you may have the centering option available or right 
justify the text with trailing spaces to move the label off 
the right cell boundary a space or two. In Figure 1, 
MONTH- and PURCHASE were added with leading 
spaces. TAX and TOTAL in row 2 were right justified 
as was MONTHLY TOTAL in В14. 

Finally, we enter the summation formula in cell C14 
and COPY or REPLICATE it to cell D14. Its Lotus 1- 
2-3 form is @SUM(C3. . . СІЗ). 

The intention is for the user to type in the month and 
even year into cell B2 or its copies after the MONTH- 
that is in A2. You might also want to put the month in 
А14 so that row might read: 


г А ЈЕ B x с 3t DJ 


14-JAN 785 MONTHLY TOTAL X. XX YY.YY 


Some spreadsheets let you use a formula to duplicate 
what you type into B2, say, А14. One form is 
@IF(@TRUE,B2). This works on both numbers and labels 
and copies whatever is in B2. Note that a formula *B2 
in А14 will copy numbers but not text. 

That completes our template for one month of entries. 
You will need more than eleven lines most months. Put 
the cursor on row 14 or its equivalent in copies and INSERT 
however many additional rows you need. You also may 
need to COPY or REPLICATE a blank and formatted 
row of cells into the column A range for the new rows 
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inserted. Say you inserted six new rows. Cells А14... 
214 become A20 ... D20. The cells in the range C14 
... 019 now are not formatted. COPY A20... D20 to 
the target range А14... А19 to do the formatting. 

Now is the time to put some data into the template to 
make sure it works right. The first law of computing is 
There Are Always Bugs. It applies to spreadsheets as well 
as any other types of programming. It is most important 
to get this one right to avoid having the same errors show 
up in each copy. 

Now that things are right and you have cleared your 
test data out, it’s time to copy the one-month template 
a number of times to make the overall template. But, first 
we must observe the second law of computing. Save Early 
and Often. For some spreadsheet users this is a safety play. 
Others will need this file to build their complete templates. 

The Lotus 1-2-3 COPY command makes generating the 
full template a piece of cake. COPY АІ... 014 to А16. 
Now we have two months' worth of templates ending at 
row 29. Leaving row 30 blank like row 15, COPY Al... 
D29 to A31. Now there are four. COPY А1... D29 to 
A61 to complete a sheet for six months of data. One last 
task is to provide totals for this sheet and year-to-date 
totals. 


t А 3t В 3t с IL Di 3 
89-JUN '85 MONTHLY TOTAL ХХ.ХХ YYY.YY 
9Ø-TOTALS THIS SHEET XXX.XX YYYY.YY 
91-TOTALS PREVIOUS SHEET 
92-YEAR TO DATE TOTALS 


Cell C90 contains the formula 
+C14+C29+C44+C59+C74+C89. This adds up all the 
monthly totals. Note the pattern X4+X9+X4+X9. . . which 
results from our keeping 15 row increments for each month. 
Patterns like this make it easy to set up formulae from 
memory without having to go back through the spreadsheet 
to write down cell addresses. Patterns also help avoid errors 
since mistakes tend to stand out as something different. 

Cell C92 contains C904 C91. Now COPY the range C90 
. . . C92 to D90 and it's time to file it to disk. 

VisaCalc and some derivative spreadsheet programs lack 
a COPY command, but copies can be made using disk 
or tape files. Generally, these programs do not erase the 
existing spreadsheet when a new one is loaded. The 
procedure calls for inserting blank rows to move the existing 
sheet contents down enough to make room for the one 


XXX.XX YYYY.YY 
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to be loaded. Our one-month template uses 15 rows 
including the blank row 15. INSERTing 15 rows above 
current row 1 will make room. 

Now, load the single month template. You did save it, 
didn't you? It will overlay the new blank rows that you 
added making a two-month template. Check it out, and 
if all is well, save it to disk or tape. Now make two passes 
where 30 rows are inserted each time and then the two- 
month template is loaded. Your final task is to add the 
sheet and year-to-date totals and save the complete 
template. Figure 2 is an example of the sheet in use. Note 
that our nice 15 rows-per-month pattern has been destroyed 
as more rows were added in prior months. 


The concept of building a basic template and then 
repeating it over and over has wide application both at 
home and in business. Data may be grouped in a variety 
of different ways depending on reporting needs. Weekly 
and monthly summaries are common. In business, monthly 
summaries are combined to produce quarterly reports and 
these are compiled into year-end reports. The implication 
is that data must be transfered from one spreadsheet to 
another. 

VisaCalc pioneered data transfer through disk files, and 
most creditable spreadsheet programs provide this 
capability. Our year-to-date totals are candidates for such 
transfers. It's true that for two numbers, writing them down 
and typing them into C91 and D91 of the new template, 
when it is started, would be easier. However, examples 
should be simple and easy to understand at the beginning; 
certainly transfer of two numbers qualifies on both counts. 
I will explain the Lotus 1-2-3 steps. 

Say, for instance, it's the end of December and that our 
summary at the end of the second spreadsheet for the year 
looks like this: 


t А и в 3t c 3t De 
89-DEC '85 MONTHLY TOTAL 35.82 952.82 
9Ø-TOTALS THIS SHEET 154.87 3872.44 
91-TOTALS PREVIOUS SHEET 


92-УЕАК TO DATE TOTALS 154.87 3872.44 


We need to bring the totals from the previous sheet over. 
Load that sheet and move to the TOTALS THIS SHEET 
row. Key into Lotus, “ /, F, E." You will need to specify 
the range, C90. . . D90, as well as a filename, to save. 

To load data, the cursor must be positioned on the cell 
where the loading is to start before the keystroke sequence, 
* |, F, C." After you specify the filename, the data is loaded 
from disk. 

This is a somewhat simplified sequence, as different 
spreadsheets have different features and need additional 
information to complete a data transfer. 


г А 1 Р I c ЈЕ DI 
89-DEC 785 MONTHLY TOTAL 35.82 952.82 
9Ø-TOTALS THIS SHEET 154.87 3872.44 
91-TOTALS PREVIOUS SHEET 182.65 5054.83 
92-YEAR TO DATE TOTALS 337.52 8907.32 


This method becomes quite useful in larger business 
spreadsheets where the same data is used in two or more 
spreadsheets, or where data in last month's spreadsheets 
must be moved to new locations to be ready to enter this 
month's activities. We will deal with this in the future. 
If you want to try this earlier, I would suggest you get 
the book referenced earlier, one for your particular 
spreadsheet or another on either Lotus 1-2-3 or VisiCalc 
that provides examples. 
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Omniterm 2 Communications Software 
Called *The Greatest 


Omniterm 2 has all the telecommuni- 
cations features I could ever want, and 
a few more I didn't even realize were 
possible: a scroll back option for those 
times I've been on a new BBS (Bulletin 
Board System) and couldn't remember 
their command list, a color program 
(for those of us who are RGB snobs), 
XMODEM protocol (to download 
non-ASCII files), a simple-to-use menu 
driven program (so I wouldn't have to 
refer back to the manual) and a way 
to get back into DOS without breaking 
the connection with the host computer 
(to check the exact name of the file I 
plan to upload). 


I was impressed with the on-screen 
clock and stopwatch feature (to tell me 
how long I've been connected to a $6 
per hour service), easy setting of RS- 
232 parameters for several types of 
telecommunication, re-dial feature for 
those times when my favorite system 
is busy, programmed keys for passwords 
and user names, and a way to dial 
remote hosts using my alternate long 
distance service codes. 

This non-copy protected program 
works well on a floppy system, such 
as the Tandy 1000 or 2000, and on a 
hard disk system like the Tandy 1200. 
Version 6.04 for the 2000 runs in 
monochrome on the color monitor and 
requires 256K RAM, but 5.04 for the 
1000 and 1200 operates in color and 
needs only one drive and 128K. 

Included with the program are 
sample file settings for The Source, 
Dow Jones News Service, CompuServe, 
Delphi, and Newsnet. There are also 
instructions for direct connection to a 
XENIX or UNIX multi-user computer 
system at 9,600 Baud. The manual has 
a chapter on "Getting Started" and ten 
minutes after unwrapping the software 
I was online with CompuServe. 

When Omniterm 2 is activated from 
DOS, a screen with the logo appears, 
called *Smart Terminal Mode." Using 
the F1 function key gets into the options 
menu. I tested the software using a 
Rixon 212A, and a Hayes 1200 modem 
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which required a simple DIP switch 
change. With the Hayes, I dialed 
directly from the options screen, but 
with the 212A in “Ејхоп mode," I 
needed two carriage returns to activate 
the modem from the smart terminal 
mode. 

The five terminal emulation choices 
are TTY or *dumb terminal," a DEC 
VT100, DEC VTS2, customized for 
special terminal characters or an 
automatic answer host. The echo/line 
feed mode can be set for full or half 
duplex, or customized for unusual echo 
and line feed combinations. 

Disk functions are accessible from 
DOS without losing data from the host 
computer. The disk directory can be 
viewed, files erased, a file displayed, the 
default drive changed, and the directory 
path may be changed. 

File send and receive functions allow 
a choice of character-by-character 
transmission such as ASCII or the 
XMODEM protocol. RS-232 options 
change Baud rate from 50 to 19.2K, 
data bits from five to eight, one or two 
stop bits and parity from none to even/ 
odd/ mark or space. Errors are tracked 
and explained, RTS: and DTR are 
turned on or off and an RS-232 adapter 
may be selected for any of four serial 
ports. 

The phone number directory sets up 
a separate file with customized com- 
munications settings for each BBS, 
remote computer or online service. 
Macro keys are defined for answer 
back, user name, or other commands. 
Omniterm 2 also adds a comment line 
with every file setting, which is most 
useful for making notes about the 
peculiarities of each system. 

The automatic dial and logon feature 
is simple to use. A dialing prefix is 
defined to ready the modem to dial the 
number. The suffix instructs the modem 
that the phone number has been entered 
and to start dialing. Examples of prefix 
and suffix commands for most popular 
modems are given in Appendix F. 
Watch out for the Hayes ATDT prefix, 
however. The dialing prefix must be in 


uppercase letters. The program does not 
automatically convert lowercase, and if 
capital letters are not used, the Hayes 
will not auto-dial. When transmission 
is ended, the line hangs up. 

Up to 64K of the available memory 
is available in the scroll back buffer, 
the file receive buffer holds another 25 
percent of free memory, and the rest 
is for the printer buffer. If the printer 
or file receive buffers reach capacity, 
Omniterm 2 sends a pause to the remote 
system. 

When writing to disk, the program 
opens a file, writes to it and closes the 
file, rather than putting additional data 
in an already-open file. In the case of 
a power failure or telephone transmis- 
sion problem, the data in the file is 
recoverable as far as the last buffer 
write. Most communications software 
I've used doesn't have this nifty feature. 

Omniterm 2 has a great option for 
downloading XMODEM files. After a 
filename is entered, a prompt warns if 
another file with the same name already 
exists. You can replace the old file, 
append with the new information, or 
quit and choose another filename. 

The program receives one 128- 
character block at a time, and checks 
for errors in transmission. After the 
data has been successfully received, the 
file is saved to disk, the program beeps 
and returns to the main menu. Appendix 
G has an excellent explanation of the 
mysteries of Christensen or ХМОРЕМ 
protocol. 

With an auto-answer modem, От- 
niterm 2 allows unattended host oper- 
ation. Those who have wanted to be 
the sysem operator of their own BBS 
can do it with this program. When a 
remote computer calls, the program 
detects the call and prints a message 
set up in the answer back string. The 
caller is asked for a password, and after 
three incorrect tries, Omniterm 2 
disconnects the caller. 

After the calling computer is accepted, 
a remote host menu appears, giving the 
caller options to send or receive with 
XMODEM or with ASCII, a disk 


Give your Model 100 


128K 








AM 


Installs as easily 


as plugging 
in a socket 





Software included, transfers from bank to bank. Works like main 
menu! Includes powerful RAM Basic that lets programs store 
and access data from any other bank. 


PCSG says: Satisfaction guaranteed or your money back 


As amazing as it seems you can up- 
grade your Model 100 to 128K of RAM 
in just 60 seconds. 

It comes to you right out of the box 
looking just like the picture. You just open 
the little compartment on the back of your 
Model 100 with a quarter and it just pushes 
right into place. You can then put the cover 
back in its place. 

You then have 4 banks of RAM of 
32K each. The additional three banks 
also work just like your Main Menu. 

You push a function key and you are 
in the second bank. Push again and you 
are in third, again, then fourth. Press it 
once again for your original bank. 

It has its own built-in NiCad battery 
that recharges right from the Model 100 
and its guaranteed for a full year. 

What is really great is that you can 
copy a file from one bank to another with 
just a function key. 

Each bank is like having another 
Model 100, and all the built-in programs 
as well as any snap-in ROM programs ap- 
pear in all four banks and work the same 
way. Your widebar cursor moves from file 
to file and you access any file or run any 
program just by pressing ENTER. 

What lets you copy any file from one 
bank to another is a snap-in ROM from 
PCSG called RAM +, that comes at no 
extra charge. It just pushes right into the 
little socket in that same compartment with 
the 96K expansion unit. 


• ° 
within 30 days 
Not only does this firmware let you 
copy a file from bank to bank, but you can 
make a copy of any file within the same 
bank instantly with a function key. Great 
for Lucid spreadsheets! 





Copy a file from 
bank to bank with a 
function key 





You can also rename a file, or kill any 
file with just a function key. Plus you can 
do a whole lot of other useful things like 
setting the date, day and time with func- 
tion key ease. You even have a function 
key that lets you use non-Radio Shack 
printers without having to make those 
tricky dipswitch settings. 

RAM + lets you cold start any one of 
your banks without affecting the other 
three. That means that anytime you want 
you can clean out a bank’s entire memory, 
but leave intact all the files in the other 
banks. 

What is also fantastic is that you don’t 
have to have the ROM in place to use the 
additional RAM. Whenever you take out 
the snap-in ROM it leaves behind a tiny 
machine code program that lets you switch 
from bank to bank just by pressing 
ENTER. 


This lets you use your ROM socket to 
snap-in other ROMS like LUCID spread- 
sheet, WRITE ROM text processor, or 
DISK + ROM file transfer program, and 
use them in any or all four banks. All of 
these, by the way, are available from 
PCSG. 

When you are ready to copy a file 
from one bank to another or use any of the 
other fantastic functions we talked about 
you can just snap the RAM + ROM back 
into place. 

Everybody that has this 128K system 
in their Model 100 is so excited, because it 
gives them four times the capacity and 
all banks work just like the Main Menu. 

And what has made a lot of people 
happy is that the system bus, located in the 
same compartment, is left free for you to 
plug in a DVI or the Holmes Engineering/ 
PCSG portable disk drive. 

The ability to copy a file from bank to 
bank instantly with a function key, plus all 
of the other features make this RAM ex- 
tension truly an engineering masterpiece. 

Some people hesitate when they think 
of installing something, and then others 
are skeptical that any additional hardware 
could be as good as the Model 100 itself. 
That's why we sell these 96K expansions 
on a 30 day trial. Simply return it within 30 
days for a full refund if you are not satis- 
fied. Priced at $425. MC VISA COD. 


1-214-351-0564 





PORTABLE COMPUTER SUPPORT ORO P 


11035 Harry Hines Blvd. No. 207, Dallas, Tx. 75229 
VISA / MASTER CARD / AM. EXP. / C.O.D. 








directory, chat with host system oper- 
ator, print data on host printer and 
hang up. The program shows the 
connect time and the current date and 
time the caller exited the system. 

An excellent security feature with the 
host mode is restricted access to any 
drive or directory path except the 
default drive and path. A special host 
directory holds files that are available 
to the public, and callers cannot read 
data stored in the hard drive nor in 
other directories. 

I had some difficulty setting up the 
dialing codes for use with my MCI long 
distance service, so I sent a “help!” 


request to Lindbergh Systems via 
CompuServe. They answered promptly 
and explained step-by-step how to enter 
the pause and user ID codes. 
Omniterm 2 is the greatest commu- 
nications software I’ve ever used. The 
scroll back and constant file save 
features are extremely helpful. The ease 
of operation, plain language menu 
choices and versatility of the package 
are excellent. Who knows, I may even 
start my own BBS using Omniterm 2. 


— M.J. Batham 


(Lindbergh Systems, 49 Beechmont St., 
Worcester, MA 01609, 617-263-5049, $175) 


> CUSTOM SOFTWARE 


for your MODEL 100 or 


NEC PC 8201A 
CBUG 


CBUG is the ultimate debugging utility for your lap computer. Requires less than 
3K RAM. 100% machine language. Features include: 


• Instruction Step 

• Call/Instruction Step 
* Zero/Fill Memory 

* Load Data 

* Alter Registers 


e Dump Memory & Registers 
* Search/Replace 

* HEX math (+ & —) 

* Decimal — HEX conversions 
* Display in HEX or ASCII 


RENUMBER 


The utility you've been waiting forl Now you can renumber your BASIC 
programs IN PLACE! This powerful, 10096 machine language program is 
relocatable to any convenient place in memory. Requires less than 3K RAM. 


Кепитбег all or part of a program. You specify line numbers and increment. 
5 


24.95 


LET'S PLAY MONOPOLY* 


It's you against the computer and the computer is a tough cornpetitor. Super fast 
machine language graphics display the whole board at all times. The computer 


makes all its own decisions. You're really going to love this game. 


$29.95 


ASSEMBLER 


A powerful 8085 assembler for your lap computer. Recognizes all the standard 
pseud-ops. Immediate data may be in decimal, hex or ASCII. Relocatable to any 
convenient place in memory. Several built-in Macros make your programming 
easier. FASTI Written in 10096 machine language and requires less than 3K RAM. 


$32.95 


MELODY MAKER 


A musical program generator. Use simple cursor controls to enter sheet music. 
Melody Maker writes a program to play the song. You can even use Melody 


Maker to add musical routines to your own programs. 


$19.95 


CUSTOM SOFTWARE 
e 1308 Western * Wellington, Kansas 67152 * 
316/326-6197 


4 
VISA 
d 


Please include $1.00 for shipping. For orders 
outside the U.S., include sufficient postage 
for airmail delivery. U.S. funds only. 


MasterCard... 
SR 


*Monopoly 5 a trademark of Parker Brothers 
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SOFTWARE 


Better Basic Lives Up 
to Its Name 


Is Better Basic better? I think so. If 
I made a list of things that would make 
writing BASIC programs easier, the 
following would top my list: 


I) Subroutines that could be called 
by name instead of line number to 
improve readability. 

2) Local variables and line numbers 
in those procedures that would not 
conflict with other areas of the program. 

3) Error checking, at least for syntax 
and valid keywords, as program lines 
are entered. 

4) The ability to write and read 
records to data files without worrying 
about disk buffers and type converting. 


Better Basic does all of the above and 
much more. The version I tested was 
for the Tandy 1000, 1200HD and IBM 
PC, but it seemed to run on the Tandy 
2000, as well. A version specifically for 
the 2000 is also available. The manual 
runs over 500 pages and covers Better 
Basic completely. In addition to the 
manual, the second disk in the package 
had a demo program that nicely 
demonstrated many of the features. 

The programs necessary to run Better 
Basic are not copy protected and can 
be backed up. There are about five 
different files that must be online at run 
time, however, they only take up about 
89,086 bytes of disk space. The manual 
is very explicit about which files are 
required and describes the installation 
procedure in great detail. Reference is 
made to the Better Basic compiler, but 
be aware that this really refers to the 
compilation of the extra features. The 
program actually executes as interpreted 
BASIC. 

Once you have the disks set up, typing 
B from DOS loads Better Basic and 
gives you a blank screen with a reverse 
bar across the bottom line. The bottom 
line tells you that the "autodefine" 
feature is on and that you are in the 
main program. 

This leads to one of the more 
interesting features of Better Basic. 
Better Basic sets up “work spaces" and 








the name of the currently active work- 
space shows on the bottom line of the 
screen. The main program work space 
is just like the environment provided 
by regular BASIC and you may enter 
program lines in the normal manner. 
The difference comes when it is time 
to write a subroutine. 

In Better Basic you name a procedure. 
For instance, you might like to have 
a routine to stop execution of the 
program until a key is pressed. Rather 
than just writing this as a subroutine, 
you would type PROCEDURE PAUSE. 
This causes Better Basic to set up a new 
work space called pause. The screen is 
again blank and the bottom line tells 
you that you are in the pause work 
space. You may now write your sub- 
routine. The difference is that the line 
numbers you use and the variables you 
declare are “local” to the PAUSE work 
space. 

This means you can start the proce- 
dure at Line 10 even if you have a Line 
10 in the main program. If you write 
a lot of procedures of subroutines, this 
is a very handy feature. Now you never 
inadvertently clobber other sections of 
code by reusing a line number. The 


same thing applies to variable names. 
The loop counter К you use in the PAUSE 
procedure is different from the K you 
used in the main program (or any other 
subroutine). 

Making a mess with “side effects” like 
these is a common problem in regular 
BASIC if you write long programs. 
Maybe the best part of all is that in 
your main program when you want a 
pause, you use the name of the procedure 
PAUSE as if it were a BASIC keyword 
instead of having to use GOSUB to a line 
number. Consider the following two- 
line 150s for readability: 


150 GOSUB 8000 
150 PAUSE 


The first is regular BASIC, the second 
is Better Basic. Since PRUSE was defined 
as a procedure, subsequent uses of the 
name call the procedure like a GOSUB 
command. 

While the local nature of the variables 
used in procedures makes writing 
programs easier, there are times when 
a procedure needs a value from the main 
program to do its job. Better Basic 
makes provision for this possiblity. At 


The Preble NavComp II 


the beginning of a procedure a variable 
may be declared to be an argument 
variable. 

When the procedure is called by the 
main program, a value of a variable 
name follows the procedure name. This 
value is passed to the procedure and 
is available in the procedure as the 
argument variable. The argument, 
however, cannot be changed in the 
procedure. For instance, a procedure 
called DELAY would be passed a value 
representing the length of the delay. 
This value would be an argument of 
the procedure and could be used but 
not changed. 

Sometimes the purpose of a proce- 
dure is to change something. In this case 
the item to be passed to the procedure 
should be declared as a variable 
argument rather than an argument 
variable. Another example may clarify 
that bit of “gobbledygook.” If you 
wrote a procedure called INCREMENT, 
you would want it to change the 
variable from the main program. 
Declaring a variable argument would 
allow you to expect INCREMENT CDUNT 
to increase the value of the variable 
COUNT by one. 


*MAJOR CREDIT 


Two Aviation Programs in one package! 
New Enhanced Version For the Model 100 or new 


Tandy 200! = 


NavPIn NavAid 
For Flight Planning For In Flight Navigation 


* Creates Navigation Log! * Tracks your flight in Real 
* Saves Route of Flight for Time! 
repeat use! * Modify Flight Data as 


* Compensates for Climbs and necessary! 

e Statute or Nautical ө Shows Position, Fuel, 
measurements! Intersections! 
prevention! much more! 

• Fly direct ог use VORS! * Turn off and on without 
features! 

Requires Radio Shack Model 100 with at least 16K or the new Tandy 

Attention Radio Amateurs! Announcing: 

The Preble HAMTERM! 

* Radioteletype operation for BAUDOT, ASCII, AMTOR, CW! 

• Split Screen Operation in receive mode with unlimited type ahead 

* Word Buffer in Transmit Mode! Corrects errors before they are sent! 

* Automatic CQ! — Automatic Station Call! — Automatic Logging! 
— Send RYRY! 

• And many other advanced features! 

new Tandy 200! 

The Preble NavComp: Only $34.95 

Shipping and handling $1.50 to U.S. and Canada — $5.00 to other 

countries 

VISA, MasterCard or COD is OK! 

Order From: Dr. Preble’s Programs; 6540 Outer Loop; 


Descents! • Incredible Graphic displays! 
• Self Prompting with error • ETA'S, Ground Speed, and 
* And many other advanced data loss! 
200! 

= 

For the Model 100 ог new Tandy 200! 

capability! 
• Echo to printer! — Download! — Upload! — Send Time and Date! 
Requires Kantronics UTU, RS Model 100 with at least 16K or the 
The Preble HAMTERM: Only $29.95 
Free Brochures available! 
Louisville, KY 40228 (502) 966-8281 


COMPUTER SALES 


CARDS ACCEPTED! 


•МО SALES TAX 
COLLECTED! 
N.J. RESIDENTS ADD 6% 


TANDY 1000 SUPER SYSTEM 


x 640K x 2 DISK DRIVES 
* CLOCK CALENDAR x SERIAL PORT 


EPSON FX-85 
PRINTER PKG. 
*EPSON FX-85 

*EPSON Adjustable Tractor Option 
*KENSINGTON Printer Stand 
Case of Paper 1800 Sheets 


Extra Printer Ribbon 
Printer Interface Cable 


All new FX-85 by EPSON 
Exclusive 1 Year Warranty! - FX-85 
features 8K Buffer, 160 characters 
per second and near letter quality 
mode! 


OR 


Inquiries, Price Quotes, and in N.J. call 201-728-8080. ORDERING INFORMATION AND TERMS: 

Mail to: CDA COMPUTER SALES, 31 Marshall Hill Road, West Milford, N.J. 07480. Include address 

and phone number. Shipping, handling and insurance are additional. Add 2% UPS Ground ($3.50 

minimum) UPS Blue 6% ($5.00 minimum) NO. C.0.0. Cashiers checks, moneyorders and credit cards 

ship immediately. Personal and company checks allow 15 days ORDER 9am-7pm EST pene ke Å 
ап 


Saturday 10-4. OUR REFERENCES: We have been selling computers since 1977. Our b: 


$2,945 


*TANDY 1000 
*TANDY Second Drive 
*TANDY VM-2 Green Monitor 
*PBJ MFB- 1000 Board 
*EPSON FX-85 Printer 
*Printer Stand 
*Case of Paper (1800 Sheets) 
*Box of Double Sided Diskettes (10) 
*EPSON FX-85 Tractor Option 


PBJ MFB-1000 Board in- 
cludes DMA Controller Chip, 
Clock/Calendar, 512K of 
Memory, and Serial Port. 


LY 800-526-5313 


is First 


Fidelity Bank, West Milford, N.J. D&B listed. SATISFACTION GURANTEED! If you are not 100% 
satisfied, return within 7 days for a full refund. ORDER VIA COMPUSERVE You may place orders via 
COMPUSERVE'S ELECTRONIC MALL 24 hours a day, 7 days a week. 
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Better Basic won't let you get away 
with many errors either. Each line is 
checked for errors as it is entered. If 
there is an error in a line, the error is 
flagged immediately and the line does 
not become part of the program. The 
offense is pointed out with an error 
message and a ~ pointing at the spot 
where the error occurred. Not every 
error can be detected, but punctuation, 
type mismatches, illegal keywords and 
unknown procedure names are all 
checked. This does make a lot of sense. 
It has always seemed silly to me that 
I had to run a program to find out I 
had made a typing error. 

Better Basic has integer and string 
variable types that are the same as 
regular BASIC. It also has some different 
types that are useful. The type “byte” 
is similar to integer, but it only occupies 
one byte instead of two. Its value is 
limited to a maximum of 255, but this 
will suffice for many applications. 

Rather than single and double pre- 
cision, Better Basic has the type “real.” 
The user may specify the level of 
precision of real variables. The PRE- 
CISION command is given an argument 
between six and 24. PRECISION is a 
global command and applies to all real 
variables in the program. 

Better Basic also has a constant type. 
Once a constant has been declared, its 
value may be used but not changed. 
This feature eliminates the inadvertent 
changes possible in regular BASIC. 
There is also a pointer type of variable. 
Any regular variable may be referenced 


directly by using its name, or indirectly 
through a pointer that points to the 
memory location the variable occupies. 
Pointers are useful in creating linked 
data structures. 

Better Basic allows the definition of 
complex data types called records. For 
instance, a teacher might want to have 
a record called STUDENT. This record 
would contain a name field (string), an 
ID number (integer) and a grade point 
(real). Once declared, STUDENT can be 
used as a type in declaring other 
variables. An array of students would 
allow manipulation of a list of students 
using only one array despite the three 
types of data. Even nicer is the ability 
to write a student record to a disk file 
without having to convert the integer 
and real portions. There is no FIELD 
command in Better Basic and no buffer 
to worry about. 

Well, I have pussy-footed around the 
variable declaration issue long enough. 
This is one feature of Better Basic I like, 
with reservations. As mentioned above, 
Better Basic boots up with the autodefine 
feature turned on. This means you may 
write code as you always have in BASIC 
just using a new variable when the need 
occurs. Better Basic in this mode will 
write a declaration statement for you. 
The next time you list the program 
procedure, the variable you used will 
be listed in the declarations. The type 
assigned to the variable will reflect the 
type implied by its first use. 

My reservations stem from the fact 
that once a variable has been declared, 


either explicitly by the user or automat- 
ically by Better Basic, its type cannot 
be changed — ever. The autodefine 
feature has gotten me in trouble when 
I used a new variable in an input 
statement. Better Basic decided this was 
a real variable and declared it so. I 
wanted it to be a string, but nothing 
I could do would change the type. Even 
when I was being diligent and declaring 
an array explicitly, I forgot that an 
array of 12 would only go from zero 
to 11 and referencing the 12th member 
would cause an error. 

I tried in vain to redefine the array 
to have 13 members. Maybe the answer 
is to turn the autodefine feature off. 
Now, using a new variable on the fly 
will generate an error as the line is 
entered because the variable is unde- 
clared. You will then have the oppor- 
tunity to declare the variable the way 
you want it. 

Graphics commands are supported in 
Better Basic, but 1 could not test them 
as I have no graphics board, but I did 
have a good time with the window 
commands. You can define a window 
by giving its upper left and lower right 
corners, Now when you want to open 
the window, the SELECT command pops 
it open. A FRAME WINDOW command 
draws a very nice border around the 
desired window. CLW clears the current 
window and CLS restores the full screen. 
Selecting a new window closes the 
previous one and opens the new. 

Better Basic includes a variety of 
program control structures. FOR-NEXT 


Civilize the DISK/VIDEO INTERFACE • MAKE SAVAGE THE MODEL 100 
With DISK-BUDDY software for your DV/I, only function keys need touch your disk files! 


Twelve programs for one low price, work 
together to give the TRS-80 Model 100 unique 
disk file handling abilities. Access disk files 
from menu, just like a RAM file. Commands 
you were tediously typing become simple 
function key selections. And that’s just part of 
the power of the DISK-BUDDY PAK. It does 
things you can’t: 


* Create ‘‘superfiles” the length of the disk, 
over 170,000 bytes! 


• Print out, or display on either screen, or 
copy to disk or other device, a disk data file 
of any length, WITHOUT USING ANY 
ADDITIONAL RAM! 


* Furthermore, transfer records can be "fil- 
tered”, an example: 


An address file on disk can contain more 
than 1300 entries. You can move to 
RAM, or screen, or printer, etc., those 
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records which contain “California” and 
“Tennis” or whatever. Four logical 
modes of search are available. 





• Also: Features to run, load, save, sort, kill, 
measure, append, and name, disk files and 
RAM files, and much more. 

PCM Magazine (March, '85) said: “. . . an 
excellent buy" ... “manual is extremely 
well written” “will substantially 
increase the speed and ease of operation of 
the M-100 with the D/VI.” 

That was the idea in the first place. ” 
TO ORDER THE DISK-BUDDY PAK 
(disk and manual): Send name, address, 
and check or money order for $39.95 plus 
$2.00 postage and handling to the address 
below. (For COD’s call: 212-243-2129) 


BuddySystems 
> 220 West 24th Street 
New York, NY 10011 











loops are there, of course, but a 00 loop 
is included. This loop may be done a 
specified number of times or done until 
an exit command is executed, or the 
loop may end in a conditional repeat 
command. WHILE loops are also sup- 
ported. Even though line numbers are 
used for the statements within the 
various loops, Better Basic does not 
permit a GOTO into or out of one of 
these structures. The only way in is from 
the top and the only ways out are the 
end of the loop or an EXIT statement. 
This discipline takes some getting used 
to, but it makes for better programs 
and makes following the logic of a 
program easier. 

If you have read this far, I guess 1 
owe you a summary. Better Basic lives 
up to its name. It incorporates many 
of the best features of PASCAL and 
includes features not available in 
regular BASIC. The program works and 
the documentation is good. There are 
some deficiencies, but I assume they will 
be corrected in the new edition. 

If you want a way to write better 
documented, more readable BASIC 
programs, Better Basic may be for you. 
I think that skimming a PASCAL text 
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would be of benefit to a programmer 
who has used only regular BASIC. It is 
not absolutely required, but it would 
make some of Better Basic's concepts 
easier to understand. 

The system requires 128K (256K to 
do anything useful). 


(Summit Software Technology, P.O. Box 
99, Wellesley, MA 02157, $199.95) 


— Potter Orr 





SOFTWARE 


Bar Code Drivers 


If you want to read UPC, Codeabar, 
or interleaved 2-of-5 bar codes, this is 
the software for you. It does the job, 
though the documentation is poor. The 
manual should warn you of the dangers 


of using machine-language device 
drivers. 


What You Require 

To read bar codes you need a Model 
100 computer, a bar code wand and a 
bar code software driver. If you wish 
to read Plessey, 3-of-9 or full-size 
Universal Product Code (UPC) codes, 
you do not need the product reviewed 
here; you need only the Radio Shack 
wand (Cat. No. 26-1183, $99.95) and 
one of the drivers supplied with it. (The 
wand was reviewed in the March 1984 
issue of PCM.) 

If you wish to read all UPC codes, 
including the smaller codes found on 
small consumer goods, or if you are 
working with 2-01-5 or Codeabar codes, 
then you need this product and a wand. 
(Most people would just use the Radio 
Shack wand but the standard Hewlett- 
Packard wand, which is electrically 
identical, will also do the job.) 


What You Get 

You get a cassette with eight pro- 
grams, listed in Table 1. It comes in 
the standard padded vinyl Radio Shack 
binder with a nine-page manual. 


WILL YOU BUY COMPATIBLE? 


(OR) WILL YOU PAY ТОО MUCH? 





TANDY 1200 - 640k 


— 


(ode rate 


FORT ' WORTH COMPUTERS 
cst euni 


WE ARE SERIOUS ABOUT SAVING YOU MONEY 


(Located 30 miles from Fort Worth) 
377 PLAZA € GRANBURY € NR FORT WORTH. TEXAS 76048 


CALL FREE NUMBER: 1-800-433-S-A- а Е 


Monday thru Friday - 9:00 a.m. to 5:00 p.m. Texas Time 
(Order Inquires/Customer Service) IN TEXAS: 817-573-4111 
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The first four programs are used with 
a non-disk Model 100; the others are 
nearly-identical versions modified for 
execution below the D/ VI system RAM 
area. File sizes are listed, but don't 
forget that a CO file may take up 
memory twice — once where it has been 
saved among the directory files and 
again where it has been loaded in the 
execution area. 


Installation 

It is pretty easy to load one or more 
drivers from cassette into the Model 
100. A demonstration program, pro- 
vided, does a good job of showing how 
easy it is to read bar codes. You can 
test out the UPC driver by reading full- 
sized codes (such as those on the cover 
of this magazine) and small codes, such 
as those on soft-drink cans. A good 
source for a sample codeabar code is 
a Federal Express airbill. 


Documentation 

The manual is poor. It provides no 
sample bar codes, so there is no way 
to test the software. A chart on Page 
3 of loading locations is incomplete and 
misleading. There is no index, and a 
mistake on Page 2 makes it impossible 
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to load the UPC driver. (HIMEM should 
be set to 61752, not 62765.) It is only 
nine pages long, explains little about 
the BASIC statements that may be used 
with the wand, and gives no warning 
about the importance of backing up 
user files. It is supremely important to 
use CALL 61887 when the BASIC 
program is finished, but the manual 
merely says this is necessary to *prevent 
an error condition” when the real 
reason is that destruction of user files 
is almost а certainty if the CALL 61887 
is forgotten. 

Radio Shack distributes upgrades of 
software through items with catalog 
numbers in the 700 series; they are 
unpublicized and one learns of them by 


H 
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accident. The one valuable piece of 
information in the manual is the 
mention of catalog number 700-2401, 
a set of drivers which allows owners 
of the D/ VI to read Plessey, 3-of-9 ог 
full-size Universal Product Code (UPC) 
codes. 


Customer Support 

Radio Shack maintains customer 
support phone numbers in Fort Worth, 
with which most Model 100 owners are 
familiar. 


(Tandy Corp., One Tandy Center, Fort 


Worth, TX 76102, $19.95, special order 
through Radio Shack stores nationwide) 


— Carl Oppedahl 








Tandy 200 Use 
The BCR connector’ and ріп 
designations of the Tandy 200 are 
identical to that of the Model 100. 
In each computer the scanning of 
Па white region generates an inter- 
тире to the CPU and changes Bit 
3 of CPU input port ВВ, The two 
have: nearly’ identical BASIC in 
ROM (though at different loca- 
tions) ‘with: analogous provisions 
for adding the WAND: device. As 
а result; the software driver 
necessary for decoding a given 
type of bar code should be nearly 
identical for the two machines, 

Regrettably, the ROM, none- 
theless, differs in the 200 (the 
RAM hooks are in different 
places); and the difference is great 
enough that the drivers must be 
"rewritten for the 200. 

Another reason the Model 100 
BCR drivers cannot work in the 
Model 200 is that any driver must 
be assembled to fit just below the 
MAXRAM address; and MAXRAM 
differs in the two machines. 

Fort Worth tells me that drivers 
for the 200 will be available soon, 


ALWAYS AT 
SALE PRICES 


WITH THE MANUFACTURERS WARRANTY 


TANDY 6000 


Golden Oldies: 
A Blast From 
Computing's Past 


"I found my thrill 
On Blueberry Hill 
On Blueberry Hill 
Where I found you" 


Radio stations and record companies 
have been making millions for years 
with *Golden Oldies," those great hits 
of the past that somehow twang a 
special chord in our hearts and 
memories. 

But songs, great as they are, are not 
the only *Golden Oldies" to be praised, 
enjoyed and honored by our memories. 

Remember the very first time you 
played PONG? 1 do. 'Twas in a place 
called Shenanigans in Chicago's Rush 


ТАМОУ` 


COMPUTERS 


CUTOMER SERVICE 
(817) 481-SALE 


CENTER (Эа. т. - 5 p.m. C.S.T.) 


DFW COMPUTER CENTER 
326-MAIN ST., 
GRAPEVINE, TEXAS 76051 


CALL TOLL FREE 


1-800-433-SALE 


\ Ed \ 


` TANDY 1000 





Street area. So much did 1 like it that 
I bought a whole portable video game 
from Magnavox just to be able to play 
it on my own TV. Cost of that little 
adventure? $200. 

And speaking of Adventures, how 
about the original one? The travel 
through the Colossal Cave to fun, 
fantasy, pirates, dwarves and twisty 
little passages all alike? 

The first time I played the Original 
Adventure, it took me a good hour to 
figure out how to get in the cave at 
all — and a couple of hours to solve 
the mystery of getting past the snake. 
I remember the sheer exaltation when 
I did it — I even called a friend long 
distance to tell him! 

Do these classics compare with The 
Coasters, Buddy Holly, Elvis and 
Chubby Checker (who Dick Biande of 
WLS once said was “a fat taxi cab”)? 
You bet! 


"It's one for the money 

Two for the show 

Three to get ready 

Now ро, cat, go 

But don't you step on my Blue Suede 
Shoes" 


ví CHECK OUR 
SALE PRICES 


HAVE YOU GOT OUR PRICES? 
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A company named Software Country 
has put together what I consider to be 
a “must” list for everyone who has any 
sort of interest in — or nostalgia for 
— personal computing. It is called 
Golden Oldies and features Tandy 1000 
and 1200 versions of the original 
PONG, Adventure, Eliza and Life. Do 
these programs need explanation? 
Probably not. 


Still in all, PONG is the original 
arcade game, and in these versions can 
be played in either black and white or 
color, one person or two. Adventure 
is the original version of the great Wil 
Crowther/Don Woods hit. Eliza is the 
original “artificial intelligence” program 
which resembles a psychiatric session. 
You type in comments and Eliza asks 
you questions. It isn’t real, but it is a 
lot of fun. Life is that famous game 
that isn’t really a game at all in which 
you set up individual cells on the screen 
and they either give birth to new ones 
or cause the death of old ones according 
to their proximity to one another. There 
are some classic starting patterns stored 
on the disk, as well as some interesting 
variations. 


Introducing M F B-1 000 j 


I know that when I got my first 
personal computer, I searched for 
months trying to find a version of 
Adventure that would run on it. I was 
addicted to the game. In its original 
version, Adventure was the classic 
“text” Adventure — and all in whatever 
color the screen would handle. This 
version has been livened up with your 
commands in one color and the com- 
puter’s responses in another. There is 
also a “save game” feature! 

A real blast from the past! 


“Went to a dance 

Lookin’ for romance 

Saw Barbara Ann 

So I thought I'd take a chance” 


Here's the Barbara Ann of Software. 
And only $29.95 

Golden Oldies comes with a 40-page 
bound book (T'd hate to callit a manual) 
that spends most of its space explaining 
the history of the four programs and 
bringing out some of the flavor of them 
— including Tracy Kidders' Pulitzer 
Prize winning *The Soul of a New 
Machine" essay on Adventure. The 
book itself is a joy to read, a “Воок 


Of Love" to the greatest computer 
software classics ever. 

Finally, recognizing that Golden 
Oldies have been adapted for what are, 
essentially, business machines, Software 
Country has added a nice little touch 
too often missing from software today 
— a touch of humor. 

If *your supervisor or the Big Boss" 
walks in your office while you are 
playing, there's a “panic button,” 
CONTROL-P, that will quickly erase your 
screen and put a "spreadsheet tutorial" 
display on your monitor for the boss 
to see how hard you're working. That 
way, playing on company time won't 
force you out into the streets to “Get 
A Job" (Yip-Yip-Yip-Yip, Boom- 
Boom-Boom- Boom)! 

These are programs you should have. 
They are faithful adaptations of the 
classics which, as classics, will certainly 
live forever and ever. Or, at least, as 
Johnny Mathis once said, until *The 
Twelfth Of Never." 


(Software Country, distributed by Electronic 
Arts, 2755 Campus Drive, San Mateo, CA 
94403, 415-572-2787, $29.95) 


— Lonnie Falk 


DMA Controller 
(Available without DMA Controller to use 


as second board or for IBM compatibility) 


Clock/Calendar 


Clock Battery Backup 


128K-512K Memory 


P.O. Box 813 

911 Columbia Avenue 
N. Bergen, N.J. 07047 
(201) 330-1898 





Dealer Inquiries Welcome 


OROERING INFORMATION: 


Serial Port 


Designed for use with the new 


Tandy 1000 Personal Computer, the MFB-1000 

contains three of the most needed functions on a single 

10" expansion card. Using either 64K or 256K DRAM chips, the MFB-1000 

can be populated with up to 512 K of memory bringing total system memory 
to 640K. Additionally, the board also includes an IBM compatible serial 
communications port (identified as COM1) and a battery backed real time 
clock/calendar. As required by the design of the Tandy 1000, the MFB-1000 
also contains its own DMA Controller. However, the DMA Controller can be 
disabled, making the MFB-1000 compatible with the Tandy 1200 as well as 


other IBM compatible machines. 
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Ш 128K RAM $329.95 Ш 256K RAM $369.95 Ш 512K RAM $429.95 


IBM is the registered trademark of International Business Machines 
Tandy 1000/1200 are registered trademarks o! Tandy Corp 


SOFTWARE 


Cheapware’s Label 
Maker is Adequate, 
Affordable 


If you have ever needed 9,999 labels 
to place on jars of home canned 
tomatoes or an unlimited supply of 
return address labels for your home or 
business then the Cheapware Label 
Maker may be for you. A short un- 
derstandable manual accompanies this 
simple-to-operate program and together 
they adequately fill a need. 

The 18-page manual explains the 
typefaces, fonts and program functions 
which are available. The manual starts 
out with a brief description then 
immediately jumps to a semi-technical 
discussion of how to manipulate the 
different program and data files. It is 
helpful to have some prior understand- 
ing of file manipulation, but even the 
beginner computer operator, after 
reading the section once or twice, would 
be able to follow the directions. 

The three typefaces and four fonts 
that are available give the program its 
versatility. Several of these are available 
only on a dot-matrix printer and the 
combinations are limited. The labels 
may be printed in standard typeface, 
bold typeface or enhanced typeface. 
Bold typeface and enhanced typeface 
may supposedly be combined for a very 
dark impression. Because there was no 
apparent difference between the three 
dark prints when this program was 
tested, one option would have been 
adequate. 

Four fonts are also available. These 
are normal (elite), pica, expanded and 
condensed. It gets somewhat confusing 
when printing in pica or condensed 
print. The third label across the page 
ends up being several characters shorter 
than the first two labels. Also, empha- 
sized typeface is not available in either 
of these two fonts. This program was 
tested on a Daisy Wheel II printer and 
an Epson FX 80 printer. The print 
quality was excellent on the Daisy 
Wheel printer but the different fonts 
were, of course, not available. Unfor- 
tunately, they did not work on the dot 
matrix printer either. While the manual 
states that the program requirements 


only include “a dot matrix printer,” 
apparently this is not so. I would not 
purchase this piece of software without 
first obtaining a guarantee that it will 
support your dot matrix printer. 

The typefaces and fonts are easily 
activated by pressing the CONTROL key 
and a letter. For ease of remembrance, 
a handy help screen will display all the 
control combinations at the bottom of 
the screen. This portion of the screen 
may also be toggled to blank when not 
needed. 

Five simple program functions run 
the program. All of these operated 
smoothly. The user may save label 
information, load label information, 
delete a label, type a sample label or 
write a label. Each of these are readily 
activated with a CONTROL key combi- 
nation. The program will print as many 
labels as needed, un to 9,999. 

For the more sophisticated user, two 
other niceties exist. It is possible to 
insert a serial number on the label. It 
will start at any digit and print up to 
the number 9,999,999. Another very 
nice feature of Label Maker is the 
ability to insert text from a sequential 
file as it is being printed. While all five 
lines of the label are available for input 
from files, each line must carry a unique 
filename. This option is not intended 
to be used to create mailing labels. For 
as the programmer puts it, “I have 
another program you may purchase 
which contains this function 
Cheapware Letter | Manuscript Writer.” 

As an added bonus, 3,000 labels 
accompany your original order. It is 
helpful to see the labels to understand 
the line length differences explained in 
the manual. The labels are standard 
labels with three labels across the page 
and 12 down. They are available from 
any office supply house or may be 
ordered directly from the manufacturer 
of Label Maker. 

While Label Maker does not come 
with the “Pomp and Circumstance” or 
frills of some other packages, it, to a 
certain degree, does what it is supposed 
to do, and at a very affordable price. 
It also contained many misspelled 
words in the demo documentation. For 
the home user or small businessman, 
Label Maker can adequately fill a need. 


(Robert L. Nicolai, 4038 N. Ninth Street, 
St. Louis, MO 63147, 314-621-7618, $45) 


— Melanie Debusman 
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[0 Please send те the following back 
issues: 

(Payment must accompany back issue 

orders.) 


VOLUME 1 
NO.MO. ҮН. PRICE 
1 JULY '83 PREMIER ISSUE $3.00 D 
2 AUG. '83 $300 O 
3 SEPT. '83 $300 D 
4 OCT. '83 $3.00 O 
5 NOV. '83 $3.00 D 
6 DEC. '83 $3.00 D 
7 JAN. '84 $300 O 
8 FEB. '84 $3.00 О 
9 MAR. '84 $3.00 О 
10 APR. '84 LIMITED $300 O 
12 JUNE '84 $300 D 
VOLUME 2 
2 AUG. '84 $3.00 O 
3 SEPT. '84 $3.00 О 
4 OCT. '84 $3.00 О 
5 NOV. '84 $3.00 D 
6 DEC. '84 $3.00 D 
7 JAN. '85 $300 О 
8 FEB. '85 $300 D 
9 MAR. '85 $3.00 O 
10 APR. '85 $3.00 O 
11 MAY '85 $300 О 
12 JUNE '85 $3.00 О 
VOLUME 3 
1 JULY ‘85 $300 D 
2 AUG. '85 $3.00 О 
3 SEPT. '85 $3.00 О 
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Smart Cook: 
Try a Few Bytes 
Before Deciding 


May I suggest a software package 
that you can really sink your teeth into? 
It’s called Smart Cook from LeCom 
Enterprises. 

Smart Cook is an electronic recipe 
cardfile with each disk containing 
approximately 40 recipes. Each recipe 
has preparation instructions for both 
microwave and conventional cooking. 

Operation of Smart Cook is very easy 
with selection of recipes and various 
options being handled by on-screen 
menus. 

LeCom has utilized the number 
crunching capabilities of the Model 
1000 in designing Smart Cook. You are 
given the options of choosing a recipe 
with proper ingredient portions from 
one to 24 servings. The 1000 and Smart 
Cook recalculates the amount of 
ingredients necessary for the varying 
number of servings. 

Smart Cook is delivered in a “Book- 
of-the-Month-Club” type format with 
the subscriber receiving a new disk 
every month. Each disk contains only 
recipes from a particular category. The 
categories are: 1) Appetizers and 
Snacks, 2) Soups, Stews, Sauces and 
Gravies, 3) Vegetables and Salads, 
4) Eggs and Cheese, 5) Meats, 
6) Poultry, 7) Fish and Seafood, 
8) Breads, Sandwiches, Rice and Pasta, 
9) Desserts, Pastries and Beverages, 
10) Cakes and Cookies, 11) Holiday 
and Nationality Favorites and 12) One- 
Dish Meals. At the end of a year, the 
category repeats but the recipes change. 

Each recipe can be printed to elim- 
inate the need for leaving the 1000 on 
the countertop next to the toaster. 

A list of ingredient substitutions is 
included on the disk for the ingredients 
used in the recipes. 


The Smart Cook program is well- 
written with no apparent bugs. The user 
is prompted with available options on 
the screen and incorrect responses do 
not bomb the program. 

А companion, but separate, program 
called My Very Own Recipes, allows 
the user to enter his or her own favorites 
and use the features of Smart Cook to 
change the ingredient portions for the 
number of people being served. 

My Very Own Recipes requires two 
disks: one for the program, and one for 
the recipes. About 40 recipes can be 
stored on each disk. By adding addi- 
tional disks, the library of your recipes 
is unlimited. 

Although the program is well-written 
and executed, I do not find it to be 
terribly practical. 

Using Smart Cook, a four course 
meal would require accessing four disks 
to obtain each recipe. The user does 
not have the capability of changing the 
recipes on the disk to accommodate 
variances in microwave power, altitude 
(very important to this Colorado 
resident) or personal taste. With the My 
Very Own Recipes program, of course, 
the recipes are customized to the user’s 
taste as they are entered. 

Compared to established printed 
cookbooks, Smart Cook is a question- 
able value. A one-year subscription at 
$13.50 per month would give you 
approximately 480 recipes for $162.00. 
My Very Own Recipes seems to be a 
better value at $24.50. 

A desirable feature not included but 
one which could be easily added is the 
capability to do menu and shopping 
planning for a week by choosing meals 
for the week in advance and having the 
1000 add and store the necessary 
ingredients and print out a cumulative 
shopping list. 

For those curious about Smart Cook, 
there is a demo disk available which 
contains a selection of recipes from the 
various categories. 


(LeCom Enterprises, Box 346, Winfield, IL 
60190, one year subscription, $13.50/ 
month) 


— Bruce Rothermel 


Princeton, New Jersey — 


the place to be October 11-13. 
See our inside back cover. 


New Products 


World Book 
Introduces 
Educational 
Software 


World Book Discovery, Inc., a 
subsidiary of World Book, Inc., intro- 
duced its Discovery Software for Apple 
and Tandy 1000 computers at the 
International Consumer Electronics 
Show (CES) in Chicago. Discovery 
Software currently marketed for the 
IBM PCjr and includes 21 interactive 
programs which teach and reinforce 
essential learning skills for children ages 
3 to 10 and up. 

Discovery Software series provides a 
complete set of learning tools carefully 
designed to meet the needs of the 
preschool and school-age child and 
promote the joy and the challenge of 
learning through discovery, claims 
World Book. 

Discovery Software is organized into 
three series: preschool, for ages 3 to 5; 
primary, for ages 6 to 10; and inter- 
mediate, for ages 10 and up. Each series 
is available as a package of seven 
programs at a suggested retail price of 
$249.95. Individual programs may also 
be purchased separately at a suggested 
retail price of $39.95. Each program is 
supported with a workbook of activities, 
projects and suggestions for games 
which parents can use to reinforce 
specific learning skills. 

World Book, Inc., The Merchandise 
Mart, Fifth Floor, Chicago, IL 60654 


New PaperJet™ 400 
Triples Hewlett- 
Packard LaserJet™ 
Paper Capacity 


Ziyad has introduced an automatic 
sheet and envelope feeder for the 
Hewlett-Packard LaserJet™ which 
more than triples the paper capacity of 
that laser printer. 

The Ziyad PaperJet™ 400 consists of 
two paper trays and one envelope tray 
which are housed underneath the 
LaserJet. With the paper feeder, a user 
can print up to 450 sheets of paper and 
75 envelopes without refilling the paper 





or envelope trays. The 400’s two 
adjustable paper trays store and feed 
standard, legal, executive (monarch) 
and European DIN sized paper. 

Because the LaserJet and PaperJet 
400 combination offers a total of three 
paper trays, a user can stock, feed and 
print up to three different types of 
stationery and bond paper without 
having to manually change paper. This 
makes it easy to intersperse within one 
document different sizes and types of 
paper and envelopes for correspondence, 
graphs and spreadsheets. 

The PaperJet 400 is compatible with 
Hewlett-Packard, IBM and IBM- 
compatible computers and word pro- 
cessing systems that use the LaserJet 
printer. And, it operates with the same 
word processing software as the 
LaserJet. 

The Ziyad PaperJet 400 Third Party 
Solution is available through all author- 
ized Hewlett-Packard dealers and 
VARS. The price is $1,895. 


Telescan Inc. 
Announces 
Investment Software 
And Online 
Database 


Telescan Analyzer is a color graphics 
stock analysis program which accesses 
the Telescan Financial Database of over 
7,000 stocks and indices, updated daily. 
In seconds, the program displays up to 
12 years of historical data as individual 
customized technical or fundamental 
stock graphs. 

Technical Analysis includes both 
simple and exponential moving aver- 
ages, cycles, momentum, momentum 
moving averages, trendlines, on-balance 
volume, relative strength and short 
interest. Fundamental analysis includes 
insider trading, earnings, dividends, 
book value, cash flow, capital spending, 
inflation adjustment and proprietary 
indicators. 

All New York Exchange, American 
Exchange and NASDAQ Over the 
Counter stocks are listed in the database, 
and are updated daily. 

The Telescan package retails for 
$395.00 and includes the program and 
a year of the Software Maintenance 








Package, along with an 800 support 
number. Connect charges, via Tymnet, 
are $10.00 per hour prime time and 
$5.00 per hour non-prime time, in major 
cities. There are no monthly minimum 
fees. 

System Requirements: IBM PC, PC- 
XT, PC-AT, PCjr, Compaq, 100% IBM 
compatibles, 256K, Hayes Smartmodem 
or compatible (1200 Baud), color 
graphics. 

For more information, contact Tele- 
scan Inc., Suite 600, Houston, TX 
77042, (713) 952-1060. 


Portable Power 
System For Briefcase 
Computers 


Prairie Power Systems, Inc., has 
announced a new portable battery 
system and carrying case that greatly 
extends the power capabilities for most 
lap-top computers. 

Popular briefcase computers such as 
the Tandy 100 and 200, NEC 8201 and 
8401, Epson lap-tops, Hewlett-Packard 
110 and Sord’s IS-11 series will benefit 
by the Prairie Power battery and 
carrying system. 

Prairie Power claims that the new 
product can greatly extend computing 
time on the Tandy 200. For example, 
the power system provides up to 160 
hours of continuous usage while normal 
“AA” life on the Tandy 200 provides 
a mere 10-15 hours. 

The complete computer and battery 
system is housed in a water-resistant 
carrying case. The soft-sided Cordura® 
case is fully padded and features a 
removable PVC insert panel that can 
be used as a lap-top work station. The 
case is attache size (17 by 13 by 5 inches) 
and will easily fit under any airplane 
seat. The case, battery and charger with 
the Tandy 100 weighs 12 pounds. 

The case features thick foam protec- 
tion that holds the battery, charger and 
computer. The case also has room for 
acoustic cups, cables, a small recorder 
or the new line of 34-inch disk drives, 
protected in a special padded pocket. 
The complete system will be sold for 
$169.00 (includes case, shoulder strap, 
Model 10 battery, charger and cables). 

More information is available from 
Prairie Power Systems, Inc., 1-800-435- 
8721. 
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Concepts 
Computerized 
Atlas™ 
Lets Users “Travel 
By Cursor” 


Software Concepts, Inc. now presents 
geographic facts, figures and distances, 
3-D color displays of the globe and 
more in IBM® PC and compatible 
system software. Concepts Computer- 
ized Atlas" geographic information 
software is available for $69.95 at 
participating Software Concepts’ 
dealers. 

Pop-up menus let users change the 
size of the globe (ten zoom levels); see 
facts about cities, states and countries; 
rotate the view to center on any of the 
seven continents or on the current 
cursor position; and more. 

Minimum system requirements are 
an IBM PC or compatible, IBM PCjr, 


Tandy™ 1000 or Tandy 1200; DOS 2.0 
or 2.1; 128K of RAM, one disk drive, 
a graphics board and a color monitor. 
Atlas is also available for the Tandy 
2000. For additional information 
contact Software Concepts, Inc., 1116 
Summer Street, Stamford, CT 06905; 
(203) 357-0522. 


Flagstaff Software 
Solves Disk 
Incompatibility 


Flagstaff Disk Conversion Equip- 
ment, a distributor for Flagstaff Engi- 
neering’s Word Connection and Diskette 
Connection, is marketing the systems 
which are used to transfer document 
files between most word processing 
systems and the IBM PC, XT, AT or 
true compatible. 

Diskette Connection hardware system 
consists of an 8-inch drive, a cable and 
a special controller card for the PC. 
This system allows you to read and 
write most 8-inch, 5!4-inch or 3'4-inch 
diskettes. 


The Word Connection programs 
used in conjunction with the Diskette 
Connection system, allow you to 
transfer document files on diskette 
between most word processing systems 
including CPT, Displaywriter, OS/6, 
NBI, Xerox, Wang, IBM S/32, S/34, 
5/36, 5/38, etc., and CP/M systems. 

The conversion of data is fast, 
transferring 40 pages of document per 
minute. The transferred documents can 
be sent directly into mainframe com- 
puter systems using IBM’s PROFS and 
DISOSS electronic mail system. 

The Word Connection programs use 
IBM standard Document Content 
Architecture (DCA-RFT) to transfer 
document files and parameters such as 
page size, margins, tabs, headers and 
footers, type style, proportional spacing, 
multilingual characters, merging of 
graphics and text and typesetting 
control characters. 

The Word Connection, priced at 
$695, and the Diskette Connection, 
priced at $1,099, are available from 
Flagstaff Disk Conversion Equipment, 
1805 N. Beaver, Flagstaff, AZ 86001, 
Call 602-774-5422, or 1-800-821-7493, 
Ext. 236. О 


PRINTERS 


New Star Gemini SG-10 Model printer. 
120 cps w/true descenders, proportional 
spacing. New model for 1985. 


Our Great Price, Only $249.95 


64K Upgrades Set of 9 chips Great Bargain 


Only $14.95 


PC until you check our systems and prices. 


Starting at $865. 


Ñ Attractive, heavy duty, noke acrylic case. 
4 Holds and protects up to 75 574” discs with 





six moveable, indexed dividers. 
SUPER BARGAIN ONLY $9.95 
storage box along with ten discs for only $21.95. 


10 514" discs in attractive styrene box— Only $12.95 


SHIPPING: АП orders under $100 please add $2 regular, $5 air. All orders over $100 please ado 3% regular, 8% air. California residents please add 6% sales tax. Orders outside 
the continental U.S., check with us for shipping amount; please remit U.S. funds. Software authors—contact us for exciting program marketing details. We accept MasterCard 


FREE—Send for Our Latest Product Flyer! 


and VISA. Distributed in Canada by Kelly Software 


Mark Data 


Department ! 
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Products 


24001 ALICIA PKWY., NO. 207 MISSION VIEJO, CA 92691 (714) 768-1551 





| BAR CODED LISTINGS CODED | BAR CODED LISTINGS | 
rd OR 


| [ mum СООО m || 








Bar code listings must be 
read in numerical order begin- 
ning with Line 1 and contin- 
uing through the last line of 
the listing. The computer 
display is used to prompt you 
as to which line to scan and 
give you warning messages 
should you happen to get out 
of step. 

When you run BAREAD, it 
asks you to scan the first line 
of the bar code listing. This 
line contains the name of the 
program as well as the begin- 
ning of the program itself. The 
computer will sound a high- 
pitched beep whenever it’s 
ready for you to scan a line. 
After a line has been success- 
fully read, you’ll hear a lower 
beep. A “blip-bloop” sound 
prompts you to turn your 
attention to the screen for a 
message. You'll hear this when 
you accidentally scan a line 
out of sequence. 

After reading the first line, 
you continue scanning with 


/ Using BA READ 2.1 


the second line. Remember to 
wait for a high beep before 
scanning and then listen for 
a low beep to indicate a suc- 
cessful read. 


Once the last line of the 
listing has been scanned, 
BAREAD will return control to 
the Tandy 100/200 menu 
screen. Note that the program 
you just scanned is now in the 
directory with a .DO extension. 

The final step is to convert 
the .DO text file to a normal 
BASIC program. This is done 
quite simply by going to BASIC 
and loading the file with a 
command such as LOAD” TEST 

0“ (if the program пате 
were TEST). The program will 
load into BASIC and will be 
ready to run. To save the 
program in BASIC'S com- 
pressed format (.BA exten- 
sion), you'd type SAVE”TEST” 
(if the program were named 
TEST). You may then kill the 
.00 file with KILL “TEST.DO”. 
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1000 ' *** Initialize *** 

1810 ON ERROR GOTO 1040 

1020 CLEAR 1000: MAXFILES-2 

1050 GOTO 1050 

1040 IF ERR=5 THEN RESUME NEXT 

1050 ON ERROR GOTO 0 

1060 RUNM "B30F9" 

1070 OPEN "WAND:" FOR INPUT AS #1 

1080 UCZ--1 

1090 PC$="0123456789ABCDEFGHIJKLMNOPQRST 
UVWXYZabcdefghijklmnopqrstuvwxyz- $+" 
1100 DIM RW$ (36) 

1110 ER$(1)2"You must scan line 1 first! 


1120 ER$(2)2"You've SKIPPED a line!" 
1130 ER$(3)="You"ve ALREADY SCANNED this 
line!" 

1140 ER$(4)2"Code not PCM2/39 format!" 
1158 ER$(S)-"Command not applicable here 
(n 

1160 ER$(6)="You cannot skip this line!" 
1170 ER$(7)="Selected resume file not in 
computer!" 

1180 ' *** Read Reserved Words List жж 
1190 DATA BEEP,CLEAR,CLOSE,DATA,DEFDBL,D 

EFINT, DEFNG,DEFSTR,ELSE,GOSUB,GOTO 

1200 DATA INKEYS$, INPUT, INSTR(,LCOPY,LEFT 
$(,LINEC,LOADM,LPRINT,USING,MAXFILES 
1210 DATA MID$(,NEXT,PEEK,POKE,POWER,PRE 
SET(,PRINT,READ,RESTORE,RETURN,RIGHT$( 
1220 DATA SOUND,SPACES(,STRINGS$(, THEN 
1230 FOR 1%=1 TO S6:READ КИ$(ТХ):МЕХТ 1% 
1240 *** Procedure Begins Here *** 
1250 CLS:PRINT844,"PCM Bar Code Program 
Reader v2,1" 

1260 LINE(28,4)-(219,18) ,1,B:LINE (22,6) - 
(217,16),1,8 

1270 NN%=1 

1280 GOSUB 1660:12 ERZ>Ø THEN GOSUB 1620 


:60T0 1280 
1290 IF 117=@ AND INSTR("YN",ILS$)>Ø THEN 
ERZ=5:GOSUB 1628:G0T0 1280 
1300 IF LLZ=0 THEN ON INSTR("ALSR",IL$) 
GOTO 1820,1890,1980,2050 
1310 IF 117=1295 THEN 1550 
1320 IF LLZ<>NNX AND NNZ21 THEN ERAZs1:60 
SUB 1620:60T0 1280 
1330 IF LLÆANN% THEN ERZ=3:GOSUB 1620:60 
TO 1280 
1340 IF LLX2NNX AND NN%Z>1 THEN ЕКУ=2: 605 
UB 1620:60TO 1280 
1550 IL$=RIGHTS(IL$,19) 
1360 IF LLZ=1 AND NN%>@ THEN GDSUB 1780 
1570 CL$-CL$*IL$ 
1380 FOR 17=1 TO LEN(CL$) 
1398 СН$=М10$(С1%,17,1) 
1400 IF CH$="%" THEN GOSUB 1510: IF NL 
% THEN 1470 ELSE 6070 1440 
1410 IF CH$="/" THEN GOSUB 155@:IF NL 
Ж THEN 1470 ELSE GOTO 1440 
1420 IF CH$="," THEN UCZ=NOT(UCZ) : GOT 
0 1450 
1430 IF CH$=>"A" AND CH$<="2" AND NOT 
(UC%) THEN CH$=CHR$(ASC(CH$) +32) 
1440 XX$2XX$*CH$: IF RIGHT$(XX$,1) = СНА 
$(13) THEN PRINT4$2,XX$::XX$2""1UCZ2-1 
NEXT IX% 
CL$=" " 
PRINT6200,SPACES$(80); 
IF LLZ<>1295 THEN NNX-LLZ*1:GO0TO 12 


' жж» Done *** 

CLOSE:CALL 51807':CLEAR 500,НІМЕМ:М 

' *** Decode Reserved Word *** 
NLY=Ø: IF IV>LEN(CL$)-1 THEN NLZXs-1: 

CL$="%"1G0T0 1540 

1530 IZzIZ*1:CH$2RW$ CINSTR(PCS,MIDS(CL$, 

124135) 


Submitting Material to PCM 


Contributions to PCM are wel- 
come from everyone. We like to run 
a variety of programs which will be 
useful/ helpful/fun for other Tandy 
Portable and MS-DOS computer 
owners. We now support the Model 
100, the Tandy 200, and the Tandy 
models 2000, 1200 and 1000. 


Program submissions must be on 
tape or disk, and it is best to make 
several saves, at least one of them 
in ASCH format. We're sorry, but 
we do not have time to key in 
programs. All programs should be 
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supported by some editorial com- 


mentary explaining how the pro- 
gram works. Generally, we're much 


more interested in how your sub- 


mission works and runs than how 
you developed it. Programs should 
be learning experiences. 


Pay for submissions is based on 
a number of criteria. The rate of 
remuneration will be established 
and agreed upon prior to 
publication. 


For the benefit of those who wish 


more detailed information on mak- 


ing submissions, please send a | 


SASE to: Submissions Editor, 


PCM, Р.О. Box 385, Prospect, KY | 
40059. We will send you compre- 177 


hensive guidelines. 
Please do not submit programs 


or articles currently аш to | » 


another publication. 


If you feel qualified. to view 2 
software and/or hardware products | 
for computers covered in PCM, send. | 
us your name, address and phone 117 
number; we will send you а ques- | 


tionnaire form and a сору of our 
reviewer puai | | 





1540 RETURN 

1550 ' *** Decode Hex and Control Сћагас 
ters *** 

1560 NLZ=O:IF IV>LEN(CL$)-1 THEN NLZ2-1: 
CL$2"/":GO0TO 1610 

1578 IZsIXZ*1:IF INSTR("/Z.,",MID$(CL$,IX, 
1)) >Ø THEN CH$zMID$(CL$,172,1):60T0 1610 
1580 IF IZ2LEN(CL$)-1 THEN NL%=-1:CL$=RI 
BHT$(CL$,2):G0TO 1510 

1590 HX$zMID$(CL$,12,2) :CH$zCHR$ ( CINSTR( 
"0123456789ABCDEF",LEFT$(HX$,120) 1) *15*I 
NSTR("0123456789A5BCDEF" ,RIGHT$(HX$,1)) -1 
) 

1600 17=17+1 

1610 RETURN 

1620 ' *** Error Codes *** 


1650 SOUND 5000,10:80UND 8900,10: 80UND 5 
000,10 
1640 PRINT8220-.S*LEN(ER$(ER7) ) ,ERS(ERZ) 


, 

1650 RETURN 

1660 ' *** Get Code Line *** 

1678 PRINTG173,""1:PRINT USING "Scan lin 
e ###";ММ7 

1688 IF NNZ=-1 THEN PRINT@173,"Scan any 
line": GOTO 1700 

1670 SOUND 508,5 

1700 INPUT#1,IL$:ERZ=0 

1710 FOR 1721 TO LEN(IL$) 

1720 IF MIDS(IL$,1%,1)="!" THEN MID$(IL$ 
41441)", " 

1730 NEXT 17 

1740 IF LEN(IL$)<¢>1 AND LEN¢IL$)<>21 THE 
М ERZ=4: RETURN 

1750 IF LEN(IL$)=1 THEN LL%=@:RETURN 
1760 LL$=LEFT$(IL$,Z) :LLZ2 CINSTR("012345 
6789ABCDEFGHIJKLMNOPBRSTUVWXYZ",LEFT$(LL 
$,1)) -1) *S6* INSTR("0123456789ABCDEFGHIJK 
LMNOPQRSTUVWXYZ" ,RIGHTS(LL$,1))-1 

1770 RETURN 

1780 ' *** Open Program File *** 

1790 PN$=LEFT$(IL$,6) : IL#=RIGHTS(IL$,LEN 
(IL$) -6) 

1880 OPEN PN$ FOR OUTPUT AS #2 

1818 RETURN 


SEARCH (FROM РАСЕ 26) 


1 AA A a ae 
2 ИИА НИ 
з, OA IAM 
4 ИИА 
SIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
в AK A 


1820 © *** Abort +++ 
1830 BEEP: BEEP: BEEP 
1840 PRINT@209,"ABORT! 
1850 INPUT#1,AN$ 

1860 IF INSTR("YN",AN$)=@ THEN BEEP:PRIN 

TE251,"Scan ‘YES’ or ‘NO’":GOTO 1850 

1870 PRINTe2900,5PACE$ (80) ; 

1888 IF AN$="Y" THEN CLOSE:KILL PN$*",DO 
".60Т0 1490 ELSE GOTO 1280 

1890 ' жж Skip Line +++ 

1900 IF NN%=1 THEN ER%Z=6:GOSUB 1620:60T0 
1280 

1918 ВЕЕР: ВЕЕР: BEEP 
1920 PRINTEZ1Ø, "SKIP! 
1930 INPUT41,AN$ 

1940 IF INSTRU"YN",AN$)=Ø THEN ВЕЕР: РКІМ 

T@251,"Scan ‘YES’ or 'NO'":60TO 1930 
1958 РКІМТЕ200,5РАСЕ$ (80) ; 

1968 IF AN$z"Y" THEN NNZ=NNU+1 

1978 GOTO 1280 

1980 ' *** Stop & Save *** 

1990 BEEP:BEEP: BEEP 

2000 PRINT@207,"STOP & SAVE! Are you sur 

e?" ; 

2010 


Are you sure?"; 


Are you sure?" 


INPUT#1, ANS 
2020 IF INSTR("YN",AN$)=Ø THEN BEEP:PRIN 
Te251,"Scan ‘YES’ or 'NO'":GOTO 2010 
2030 РКІМТ8200,5РАСЕ%(80); 
2040 IF AN$="Y" THEN 1490 ELSE GOTO 1280 
2050 ' *** Resume *** 
2050 IF NNZ4>1 THEN ER%Z=5:G0SUB 1220: 60Т 
0 1280 
2070 PRINT@254,"Resume Mode"; 
NN%Z=1:GOSUB 1660 
IF LL%=@ THEN ERZ=5 ELSE IF 117521 
ER%=1 
IF ERZ>@ THEN GOSUB 1520:60T0 2060 
0 PN$=MIDS(IL$,3,6) 
ON ERROR GOTO 2140 
OPEN PN$ FOR INPUT AS #2:GOTO 2170 
RESUME 2150 
CLOSE #2 
ER%=7:G0SUB 1628:60Т0 1270 
CLOSE #2: ОРЕМ PN$ FOR APPEND AS #2 
NN%=-1:GOT0 1280 





LL LLL LLLI 
AN АА L D 
JA 
зо (ПП А А 
11 МОЛИ АВИА 
12 И АДА АДА 
із 0 al 
14 FAA AM 
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15 JA A I TIT 
16 ANG 
ОООО ОАО ИО 
38 |ІІІ ТИИИШ ИИТИИ 
19 | ЇЇ ШЇЇ ШЇ ШШШ 
22 | (ШЇЇ D AUN 
21 {ЇЇ ШШШ ШШШ 
a n a I M A A DI 
23 JO ОТИИНЕОИООИ ИТ 
24 AA N 
25 JON 
26 JO M 
А | АДИ 0 АИ 
28 AINE UM 
23 АОЛ АТА 
a ИА ОИ ОО 
31. GA 
22 AA TI 
33 JA 0 O 
34 JON АИ 
35 ANG AO 
36 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIITIIIIIIIIIIIIIIIIIIIIII 
37 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
зв AN 
зэ FA МИ 


SMSPOK (FROM PAGE 60) 


KG 
2 (ЇЇ ШШ AI В 
з ИИА ОАО МАО 
4|lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
D A I I LN n M D I 
А А А 
?IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
в | ЇЇ ШЇЇ ШЇЇ 
БШШШ 
то JA 0 D 
11 [lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIITIIIIIIIIIIIIIII 
12 |! АДА ДА А 
із JO L N O 
У А АТА АО 
15 АДА 
36 |lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
17 ПОШИТИ 
x AA A D O e 
19 | ППТ 
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ге IIIIIIIII:IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
21 ЇЇ ШЇЇ ААА О 
22 JON 
23 JAN OT 
24 ANNA 
25 AO АЛАНИИ 
26 MITT АИ ИАА 
2 A ЇЇ! 
28 |! ШЇЇ M 
г JO 
зо ANA 
31 MUANI IUO IOI ON ONON O 
32 JON 
зз JV 
за. AA ИОАННА АО 
35 JA ААА 
36 JKA 
37 NO МАМА 
38 |Т 
зэ JAG DN ILU 
49 JA AD 
41 |lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
42 ЇЇ ЇЇ ШЇЇ AAA LM 
аз JG 
44 OA 
45 JA ОАО 
46 JM AA НОА 
47 OA 
ав IMMUNO АИ M 
аэ IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
52 | ШИШИШИ 
л a ND АВИА 
52 AMOK 
53 L ААА 
54 JAKO AV 
55 JAN AA 
56 ANA 
57 JO IAM 
58 JAN 
0 
ве ANA 
бі ЇЇ ШШШ ШЇЇ 
62 | ШШ ЇШЇП ШЇЇ! 
өз GN E P U D ИИИ 
64 AG AK EM 
65 JA 
ве ANA 
АШ О А И ШИ 


вв | ШЇЇ OM ЇЇ 
69 AN NO 
22 IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
21 NA E 
22 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
23 JO A AE L 
24 | OON ONA DN 
25 FG АТА 
26 JG A BA 
27. FOG 
28 AG 
a UNA NM 
вә JA 
вз | ИИА ААА 
82 AA 
вз [ИИА ААА ААА 
JAN 
85 NO KG GI 


BARSTR (FROM PAGE 62) 


aS DI 
2 AA D D i I 
3 | ШШШ AO A N A ІШ 
4 ( ПШ 
5 | ТИПТІ 
6 VA 0 I 
? JG ЇЇ 
JAN ММА ОАО 
э ИАА АО 
10 [IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
11 [ИИ ОАО 
12 [IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
13 А А 
14 | ШПИПИИИИИППИИИИШШІШТГІЕ 
У АИ А А 
16 [lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
17 (AO 
ів АДА 
19 ON DE A AALI ОЦ 
2@ JG ИИ 
21 NAA А 
22 GA A A 


LLLI ҮШІЛІ ІШІ 


Abort Skip Line Stop & Save 


LCSAVE (FROM PAGE 62) 


1 UNDO O ШШШ ШЇЇ 
O T D 
3lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
s; JAG ЇЇ 
в ЇЇ ЇЇ ЇЇ ШЇЇ A AM 
? JO T n 
AA 
AA AA 
1@ |ІІІ ИИИ 
La. AO О 
ТООЦ 
із AO 
14 JA I A a TNE I 
15 | NA 
16 NO ТИТИ 
12 VA МАЛА 
18 AO AM 
У ОДА ИИИ 
20 IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
21 JV 0 UM 
22 JR 
| О ОЛНОА И АД ААВ 
24 AN 0 
25 JO АА 
26 JM 
27 ПІШІП ИИТИИ ИИТИИ 
28 MANNA M 
29 JA a I A L DE 
зо JA 
31 TMUN OO O 


LCSTR (FROM PAGE 62) 


1 JAG ОАО 
2 JAN 
3 JAN AV 
4 ИИА 
JAN ААА МАИ 
в ONAN AN ШЇЇ 
? ШЇЇ L L АА ОА А АО 





UNA ШЇ ШП 


Resume Yes No 
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Join us for our very firstshow... 





for your Tandy computer. Sponsored by PCM, The 

Personal Computing Magazine for Tandy Computer Users, it's 
a wonderful way to meet and exchange information with those 
who share your interest in the new generation of Tand 
computers. 

You'll also discover the greatest variety of produgis"e 
for your computer because all of the favorites a lot of 
new ones will be featured in the exhibits of PCM advertisers. 
Try out that new program and take it home that very day! 

Along with other PCM readers, you'll meet the top national 
experts on your computer, including those who write for or 
who are written about in PCM. They will answer your questions 
on the spot. 

PCMfest also will include a comprehensive lineup of free 
seminars on topics of immediate concern — and all of them 
designed to help you get the most out of your Tandy computer. 

The Hyatt Regency— Princeton will be offering special rates 
($65, single or double room) for PCMfest. The show opens 
Friday evening with a 7 p.m. to 10 p.m. session. It's a daytime- 
only show Saturday — the exhibits open at 10 a.m. and run 
continuously until 6 p.m. On Sunday, the exhibit hall opens 
at 11 a.m. and closes at 4 p.m. 

Tickets may be obtained directly from PCM. We'll also send 
you a special reservation form so you can take advantage 
of the special room rate. Come to PCMfest and let's celebrate 
the new generation of Tandy computers! 


Yes invited to PCMfest, a great new show that's just 


PA Your admission to PCMfest also 

entitles you to attend RAINBOWfest, 

the highly popular show for the Tandy 

Color Computer which will run concurrently 
with PCMfest at the same location. 
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Keynote Speaker 


| Barden, respected author of 30 books on various computer 
ubjects, will speak at our Saturday Breakfast at 8 a.m. (Separate 
tickets required.) 


Free Seminars 


Sam Redmon The Future of Portable Computing 
As co-founder of the Dallas-based Portable Computer Support 
Group, Sam markets a wide variety of software and hardware 
for the Tandy portables. 


Harry Brawley The Portable Computer Environment 
President of Sigea Systems, he is creator of the Telecommuter 
integrated communications and word processing software. 


Carl Oppedahl Computer Law and Portable Computers 
An attorney practicing law in Manhattan, Carl specializes in 
*technological litigation. He is the author of a newly-published 
book titled Inside the TRS-80 Model 100. 


Bill Barden Computer Languages 
Discussion will include choosing the right language for your 
application and an overview of the most popular microcomputer 
languages including BASIC, С, PASCAL and Assembly. 


Bob Covington Data Communications 
A writer and editor from St. Louis, Bob is author of “The Portable 
Machine” series for the Tandy 100 and the “Subroutine City” series 
for Tandy's MS-DOS computers. 


Howard Wolowitz Database Management 
President of Small Computer Company, Howard is one of the 
developers of Small's popular Profile and filePro database 
management systems. 


Danny Humphress ViaNet— Tandy's New Intra- 
Office Communications System 
PCM managing editor and author of the “MS-DOSsier” and “dBASE 


Tutor" series, Danny also owns a software firm in Louisville. 


YES, I'm coming to Princeton! | want to save by buying tickets now at the special advance sale price. 


Please send me: 

three-day tickets at $9 each total 

one-day tickets at $7 each total 

(Circle one) Friday Saturday Sunday 

Saturday Breakfast at $12 each total 
Handling Charge $1 ______ 
TOTAL ENCLOSED 

U.S. FUNDS ONLY, PLEASE 
C] Also send me a hotel reservation card for the Hyatt 
Regency-Princeton ($65, single or double room). 











Name (please print) 


Address 
ЕЕВС te 
Telephon шине И ИНД | 
Сотрапу 


O Payment enclosed, OR О Charge to: 
O VISA O MasterCard L] American Express 
Account Number 
Exp. Date 
Signature 


Make checks payable to: PCM. Mail to: PCMfest, the Falsoft Building, P.O. Box 385, Prospect, KY 40059. To make reservations by 


phone, call: (502) 228-4492. 


Advance ticket deadline: October 4, 1985. Orders received less than two weeks prior to show opening will be held for you at the 
door. Tickets will also be available at the door at a slightly higher price. 








battery pack that gives 


plus powerful Nicad 
30 hours of power 
to your Model 100 


$269 


A joint PCSG/CRYPTRONICS project. 


Now you can access LUCID, DISK +, 
WRITE ROM, RAM+ and others 
instantly. 


The 6 ROM BANK plus battery pack lets 
you have the ultimate Model 100 system. 
When you get your unit just press in up 
to 6 ROMS into the sockets then push in 
a simple plug into your Model 100’s ROM 
socket. The ROM bank has two posts on 
either end that insert into the two little 
holes on the underside of your Model 100. 


The ROM bank props up the Model 100 at 
the same angle and height as those 
little legs you've seen. The ROM BANK 
itself is only about 172" deep and it runs 
the width of your Model 100. It only weighs 
one pound. It not only installs instantly, 
but it pops free in a second if you need 
everything to lie flat in a briefcase. 


Change from ROM to ROM with the 
touch of a thumb switch. 


You can go from LUCID to WRITE to 
DISK+ to any other ROMS just by turn- 
ing the thumb switch at the side of the 
ROM bank. The 6 ROM BANK is a sturdy 
well built construction that looks like it is 
a part of your Model 100. 


What is also fantastic is that the ROM 
bank has a powerful NICAD battery and 
recharger built right in. This power source 
supplies up to 30 hours of life to your 
Model 100 with just 6 hours of recharge. 
What's nice is that it recharges right from 
your Model 100's power adapter. This is 
a quick charge system and if you need 
power in a hurry, you can get 6 hours of 
life for your Model 100 by just charging for 
an hour and half. 


PORTABLE СОМЕ ЛЕК SUBRORT ORCUP 


11035 Harry Hines Blvd. No. 207, Dallas, Tx. 75229 
VISA / MASTER CARD / AM. EXP. / C.O.D. } 





Suddenly, the Model 100 is a very 
powerful computer. 


If you have the HOLMES portable disk 
drive with its powerful bundled database 
software package or the CRYPTRONICS 
128K RAM expansion along with LUCID, 
WRITE ROM and DISK+ in the 6 ROM 
bank with its rapid rechargable NICAD 
power source, you have the ultimate port- 
able system. It's all available only from 
PCSG. 


As usual we don't want you to take our 
word for it. The 6 ROM BANK is sold on 
a 30 day trial. If you are not satisfied 
simply return within thirty days for a full 
refund. MC, VISA, АМ. EX. or C.O.D. 


1-214-351-0564 


